Commit 6fd8b742 authored by pfdietz's avatar pfdietz
Browse files

Fixed non-ansi-ism in FOR loop

parent 90b9e0f6
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment