Changeset 13489 for trunk/tests


Ignore:
Timestamp:
Mar 7, 2010, 6:09:59 PM (10 years ago)
Author:
gz
Message:

add regression test

File:
1 edited

Legend:

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

    r13203 r13489  
    16331633    (test-compiler-warning "(defmethod ccl.defmethod-bad-lambda-list ((s stream) s) s)")
    16341634  (:program-error))
     1635
     1636(deftest ccl.bug#644
     1637    (progn
     1638      (test-compile (test-source-file "(defun test.bug#644 (x) (declare (optimize (speed 0) (safety 2) (debug 3)) (type (or null (function (t) t)) x)) x)
     1639                                     (test.bug#644 (lambda (x) x))") :load t)
     1640      :win)
     1641  :win)
Note: See TracChangeset for help on using the changeset viewer.