Commit 9d2c1984 authored by pfdietz's avatar pfdietz

Fixed improperly constructed when-do forms in a loop

parent 55b9e3e9
......@@ -97,8 +97,8 @@
(loop for i below 256
for c = (code-char i)
when (typep c 'base-char)
do (write-char c s)
do (vector-push c str1)))))
do (progn (write-char c s)
(vector-push c str1))))))
(if (string= str1 str2) :good
(list str1 str2)))
:good)
......
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