From futuranon at gmail.com Sat Mar 27 16:53:44 2010 From: futuranon at gmail.com (Futu Ranon) Date: Sat, 27 Mar 2010 11:53:44 -0500 Subject: [plexippus-xpath-devel] Lispworks patch Message-ID: <8bbffd1f1003270953t29922714o5894d34d4c8849f9@mail.gmail.com> Hello, I ran into the following error when loading plexippus xpath: CL-USER > (asdf:load-system 'xpath) ... **++++ Error in XPATH::GROUP-AND-SORT-SAMPLES: 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))))). ... 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. --- profile.lisp.orig 2010-03-27 11:39:58.296250000 -0500 +++ profile.lisp 2010-03-27 11:40:10.186875000 -0500 @@ -203,7 +203,7 @@ (incf (second accum) real) (incf (third accum))) (loop - for key being each hash-key using (hash-value accum) in table + for key being the hash-key of table using (hash-value accum) if (and (consp key) (eq (car key) 'pattern)) collect (cons key accum) into patterns else collect (cons key accum) into expressions -------------- next part -------------- An HTML attachment was scrubbed... URL: