0.7.9.61:

[sbcl.git] / tests / loop.pure.lisp

diff --git a/tests/loop.pure.lisp b/tests/loop.pure.lisp
index 307129b..067f7ef 100644 (file)
--- a/tests/loop.pure.lisp
+++ b/tests/loop.pure.lisp
@@ -110,3 +110,8 @@
              (loop named foo do (loop-finish) finally (return :good))
              :bad)
            :good))
+
+(assert (= (loop with (a nil) = '(1 2) return a) 1))
+(assert (= (loop with (nil a) = '(1 2) return a) 2))
+(assert (= (loop with (a . nil) = '(1 2) return a) 1))
+(assert (equal (loop with (nil . a) = '(1 2) return a) '(2)))