Ignore:
Timestamp:
Apr 24, 2008, 3:32:22 AM (12 years ago)
Author:
gz
Message:

duh, make the regression test that actually demonstrate the bug

File:
1 edited

Legend:

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

    r9246 r9248  
    6464
    6565(deftest ccl.bug#286
    66     (and (typep (lambda () (typep nil '(or ccl.bug#286-unknown-type-1 null))) 'function)
    67          (typep (lambda () (ccl:require-type nil '(or ccl.bug#286-unknown-type-2 null))) 'function)
     66    (and (compile nil '(lambda ()
     67                        (declare (optimize (speed 1) (safety 1)))
     68                        (typep nil '(or ccl.bug#286-unknown-type-1 null))))
     69         (compile nil '(lambda ()
     70                        (declare (optimize (speed 1) (safety 1)))
     71                        (ccl:require-type nil '(or ccl.bug#286-unknown-type-2 null))))
    6872         :good)
    6973  :good)
     74
Note: See TracChangeset for help on using the changeset viewer.