(STRUCTURE ...) pattern gets PREDICATE name wrong

[nklein]

The (STRUCTURE ...) pattern assumes that the predicate for a struct with conc-name FOO will be FOOP instead of FOO-P. It does this with accessors, too.

(defstruct foo a b c)
(optima:match (make-foo)
   ((structure foo a b c) t))

This looks for predicate FOOP and readers FOOA, FOOB, and FOOC when it should look for predicate FOO-P and readers FOO-A, FOO-B, and FOO-C.

[nklein]

Hmmm... My apologies. I see that this is the way it's documented. And, now I see why that makes sense.