From 95c3422137bcc12fc28987047462b4352cfed792 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Wed, 22 Feb 2012 21:56:47 +0100
Subject: [PATCH] Fix "for each hash-key in ... using" ordering

Fixes LispWorks (at least >= 6.1). Thanks to Raymond Wiker.
---
 profile.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
2.11.4.GIT