Changeset 13185

Timestamp:

Nov 10, 2009, 6:28:49 AM (15 years ago)

Author:

gz

Message:

Add regression test for spurious warning fixed in r13184

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -1602 +1602 @@
                               (the (values integer real) (round 2.5)))")
   ())
+
+(deftest ccl.bug-defmethod-key-warning
+         (progn
+           (fmakunbound 'ccl.bug-defmethod-key-warning.gf)
+           (defmethod ccl.bug-defmethod-key-warning.gf ((x integer) &key a))
+           (test-compiler-warning "(in-package :cl-test)
+                                   (defmethod ccl.bug-defmethod-key-warning.gf ((x string) &key) t)
+                                   (defun ccl.bug-defmethod-key-warning.gf-caller (x a)
+                                     (ccl.bug-defmethod-key-warning.gf x :a a))"))
+  nil)