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