[cl-match-devel] defpattern help....

Hello! I hope somebody is actually on the list that can help me with a basic question. What I'd like to do is transform the pattern defined in this expression: (cl-match:match '(let ((x 1)) x) ((when (eql op 'let) (:list op bindings body)) bindings) ) into a new pattern type. The docs aren't exactly clear on, and I wasn't able to find a place in code where the lib eats it's own dogfood and defines patterns using defpattern. How would I do this? What I'd like to do, if it isn't clear, is match(for starters) let expressions. thanks for any help you can give, Mike Kohout