Hello,<br><br>I ran into the following error when loading plexippus xpath:<br><br>CL-USER > (asdf:load-system 'xpath)<br>...<br>**++++ Error in XPATH::GROUP-AND-SORT-SAMPLES: <br>  Unknown LOOP keyword in (... LOOP::IN TABLE IF (AND (CONSP KEY) (EQ (CAR KEY) (QUOTE PATTERN))) COLLECT (CONS KEY ACCUM) INTO PATTERNS ELSE COLLECT (CONS KEY ACCUM) INTO EXPRESSIONS FINALLY (RETURN (VALUES (SORT EXPRESSIONS (FUNCTION >) :KEY (FUNCTION SECOND)) (SORT PATTERNS (FUNCTION >) :KEY (FUNCTION SECOND))))).<br>
...<br><br><br>I am not sure if this is a problem with LispWork's implementation of the loop macro or not. I don't have another lisp to test if this is LW-specific, but this patch corrects it for me.<br><br><br>--- profile.lisp.orig   2010-03-27 11:39:58.296250000 -0500<br>
+++ profile.lisp        2010-03-27 11:40:10.186875000 -0500<br>@@ -203,7 +203,7 @@<br>        (incf (second accum) real)<br>        (incf (third accum)))<br>     (loop<br>-       for key being each hash-key using (hash-value accum) in table<br>
+       for key being the hash-key of table using (hash-value accum)<br>        if (and (consp key) (eq (car key) 'pattern))<br>        collect (cons key accum) into patterns<br>        else collect (cons key accum) into expressions<br>
<br>