Fix "for each hash-key in ... using" orderingmaster
authorDavid Lichteblau <david@lichteblau.com>
Wed, 22 Feb 2012 20:56:47 +0000 (22 21:56 +0100)
committerDavid Lichteblau <david@radon.(none)>
Wed, 22 Feb 2012 20:56:47 +0000 (22 21:56 +0100)
Fixes LispWorks (at least >= 6.1). Thanks to Raymond Wiker.

profile.lisp

index 22944de..5020e2c 100644 (file)
     (let ((sorted-base-uris
           (sort (loop
                    for base-uri being each hash-key
-                   using (hash-value id)
                    in base-uris
+                   using (hash-value id)
                    collect (cons id base-uri))
                 #'<
                 :key #'car)))