Changeset 9246


Ignore:
Timestamp:
Apr 24, 2008, 3:08:30 AM (11 years ago)
Author:
gz
Message:

Regression test for ticket:286

File:
1 edited

Legend:

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

    r9241 r9246  
    6262    (typep (make-instance 'ccl.bug#285) 'ccl.bug#285)
    6363  t)
     64
     65(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)
     68         :good)
     69  :good)
Note: See TracChangeset for help on using the changeset viewer.