diff --git a/ansi-tests/cl-symbols-aux.lsp b/ansi-tests/cl-symbols-aux.lsp index a9c642c4761b39dfaacf8fc2e00b09900f7a32a3..9436189e1676f47ebd6b1c066cfbbc32289dc330 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")