From 6fd8b742bed13bd54e3998265e41723e2e79befa Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 9 Jan 2005 13:28:07 +0000
Subject: [PATCH] Fixed non-ansi-ism in FOR loop

---
 ansi-tests/cl-symbols-aux.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/cl-symbols-aux.lsp b/ansi-tests/cl-symbols-aux.lsp
index a9c642c4..9436189e 100644
--- a/ansi-tests/cl-symbols-aux.lsp
+++ b/ansi-tests/cl-symbols-aux.lsp
@@ -24,8 +24,8 @@
        ;; in CL-USER
        (let ((plist (symbol-plist sym)))
 	 (loop for e = plist then (cddr e)
-	       while e
 	       for indicator = (car e)
+	       while e
 	       when (and (symbolp indicator)
 			 (or (is-external-symbol-of indicator
 						    "COMMON-LISP")
-- 
GitLab