[plexippus-xpath-devel] Lispworks patch

[Futu Ranon]

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: <https://mailman.common-lisp.net/pipermail/plexippus-xpath-devel/attachments/20100327/9d69e30c/attachment.html>