Changeset 16812


Ignore:
Timestamp:
Mar 25, 2017, 6:07:34 PM (3 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r16811 r16812  
    19961996  t)
    19971997
     1998(deftest ccl.bug#1400
     1999    (loop with (a b) = '(1) repeat 1 collect (list a b))
     2000  ((1 nil)))
     2001
    19982002(deftest ccl.bug#1403
    19992003  (loop for nbits from (1+ (integer-length most-positive-fixnum)) to 80
Note: See TracChangeset for help on using the changeset viewer.