Changeset 13489

Timestamp:

Mar 7, 2010, 10:09:59 AM (15 years ago)

Author:

gz

Message:

add regression test

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1633 +1633 @@
     (test-compiler-warning "(defmethod ccl.defmethod-bad-lambda-list ((s stream) s) s)")
   (:program-error))
+
+(deftest ccl.bug#644
+    (progn
+      (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)
+                                     (test.bug#644 (lambda (x) x))") :load t)
+      :win)
+  :win)