From: David Lichteblau <david@lichteblau.com>
Date: Wed, 22 Feb 2012 20:56:47 +0000 (+0100)
Subject: Fix "for each hash-key in ... using" ordering
X-Git-Url: https://repo.or.cz/w/xuriella.git/commitdiff_plain/95c3422137bcc12fc28987047462b4352cfed792

Fix "for each hash-key in ... using" ordering

Fixes LispWorks (at least >= 6.1). Thanks to Raymond Wiker.
---

diff --git a/profile.lisp b/profile.lisp
index 22944de..5020e2c 100644
--- a/profile.lisp
+++ b/profile.lisp
@@ -197,8 +197,8 @@
     (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)))