Changeset 13203

Timestamp:

Nov 13, 2009, 9:17:06 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

@@ -1628 +1628 @@
     (test-compiler-warning "(defun ccl.58983-3 () (format t \"M~A ~A ~0@*~A\" 'adam \"I'M\"))")
   ())
+
+(deftest ccl.defmethod-bad-lambda-list
+    ;; This should warn, but not err out.
+    (test-compiler-warning "(defmethod ccl.defmethod-bad-lambda-list ((s stream) s) s)")
+  (:program-error))