Changeset 16812

Timestamp:

Mar 25, 2017, 6:07:34 PM (4 years ago)

Author:

rme

Message:

Test for http://trac.clozure.com/ccl/ticket/1400

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1996 +1996 @@
   t)
 
+(deftest ccl.bug#1400
+    (loop with (a b) = '(1) repeat 1 collect (list a b))
+  ((1 nil)))
+
 (deftest ccl.bug#1403
   (loop for nbits from (1+ (integer-length most-positive-fixnum)) to 80