Changeset 9166


Ignore:
Timestamp:
Apr 15, 2008, 8:20:48 PM (12 years ago)
Author:
gz
Message:

Regression test for compile-time errors

File:
1 edited

Legend:

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

    r9153 r9166  
    2727        (eval `(untrace ,slot))))
    2828  :good)
     29
     30(deftest ccl.40207  ;; fixed in r9163 and r9165
     31    ;; Check that these compile-time errors don't abort compilation.
     32    (and (typep (lambda (x) (setq x)) 'function)
     33         (typep (lambda (x) (setf x)) 'function)
     34         (typep (lambda (((foo))) foo) 'function)
     35         :good)
     36  :good)
Note: See TracChangeset for help on using the changeset viewer.