Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 13202)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 13203)
@@ -1628,2 +1628,7 @@
     (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))