Changeset 12299


Ignore:
Timestamp:
Jun 25, 2009, 12:44:02 PM (10 years ago)
Author:
gz
Message:

Add a regression test for bug #543

File:
1 edited

Legend:

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

    r12298 r12299  
    10311031  (eval '(the (values integer) 23))
    10321032  23)
     1033
     1034(defmacro ccl.bug#543.macro (init) `(make-array (length ,init)))
     1035
     1036(deftest ccl.bug#543
     1037    (length (funcall (lambda () (progn (the array (ccl.bug#543.macro '(a b)))))))
     1038  2)
    10331039
    10341040
Note: See TracChangeset for help on using the changeset viewer.