[CM] wildcards in rewrite-pattern

[Anders Vinjar]

Has the rewrite pattern changed in some way?  Or am i
misunderstanding how it works.  I cant get the wildcards to work
in the rewrite:

* (new rewrite
    :of '(a b c d)
    :rules '(((a) b c -> b b)
             (a (b) c -> a b)
             (b (b) a -> c)
             (* (c) * -> a)))





=> Error in function (LABELS GETNODE
                    PARSE-RULES):
   No node for id * in rule (* (C) * -> A).
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

((LABELS GETNODE
   PARSE-RULES)
 * #<EQUAL hash table, 4 entries {58BF7F95}> (* (C) * -> A))
Source: 
; File has been modified since compilation:
;   /div/notam02/site/cm-sys/cm-2.5.0/src/patterns.lisp
; Using form offset instead of character position.
(ERROR "No node for id ~s in rule ~s." ID RULE)
0]