<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Hi again,<DIV><BR class="khtml-block-placeholder"></DIV><DIV>I hope I am sending something more useful this time...</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>There are three new matchers that could be useful:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN><FONT class="Apple-style-span" face="Courier">:and (a-spec b-spec)</FONT></DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN><FONT class="Apple-style-span" face="Courier">:plist (&rest items)</FONT></DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN><FONT class="Apple-style-span" face="Courier">:accessors (type &rest accs-vals)</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>I have added some test cases for them as well - I think they</DIV><DIV>are pretty okay.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Courier">CL-USER> (match '(:plist :a a :b b) '(:b 1 :a 2))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">T</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">(:B 1 :A 2)</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">((B . 1) (A . 2))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">CL-USER> (defclass foo ()</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> ((x :initarg :x :accessor x)</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier"> (z :initarg :z :accessor z)))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">#<STANDARD-CLASS FOO></FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">CL-USER> (match '(:accessors foo x a z b) (make-instance 'foo :x 1 :z 2))</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">T</FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">#<FOO #x8A7FAA6></FONT></DIV><DIV><FONT class="Apple-style-span" face="Courier">((B . 2) (A . 1))</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Cheers,</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><SPAN class="Apple-tab-span" style="white-space:pre"> </SPAN>Kilian</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><BR class="khtml-block-placeholder"><SPAN></SPAN></DIV><DIV><SPAN></SPAN></DIV></BODY></HTML>