Commit 47c26886 authored by pfdietz's avatar pfdietz
Browse files

More test cases for the c.l.l loop bug.

parent 0de307d8
...@@ -194,5 +194,16 @@ ...@@ -194,5 +194,16 @@
until (> i 12) collect i) until (> i 12) collect i)
:good) :good)
(deftest loop.11.33
(loop for i in '(4 8 9 A 13)
if (not (numberp i)) return :good end
while (< i 12) collect i)
:good)
(deftest loop.11.34
(loop for i in '(4 8 9 A 13)
if (not (numberp i)) return :good end
until (> i 12) collect i)
: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