Commit 0de307d8 authored by pfdietz's avatar pfdietz
Browse files

Tests for a bug that showed up on comp.lang.lisp due to Hisao Kuroda

parent fbf09dcb
...@@ -167,3 +167,32 @@ ...@@ -167,3 +167,32 @@
until (>= i 6) until (>= i 6)
finally (return i)) finally (return i))
6) 6)
;;; More tests of a bug that showed up in c.l.l
(deftest loop.11.29
(loop for i in '(4 8 9 A 13)
when (eq i 'a) return :good
while (< i 12) collect i)
:good)
(deftest loop.11.30
(loop for i in '(4 8 9 A 13)
unless (numberp i) return :good
while (< i 12) collect i)
:good)
(deftest loop.11.31
(loop for i in '(4 8 9 A 13)
when (eq i 'a) return :good
until (> i 12) collect i)
:good)
(deftest loop.11.32
(loop for i in '(4 8 9 A 13)
unless (numberp i) return :good
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