Changeset 13185


Ignore:
Timestamp:
Nov 10, 2009, 2:28:49 PM (10 years ago)
Author:
gz
Message:

Add regression test for spurious warning fixed in r13184

File:
1 edited

Legend:

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

    r13157 r13185  
    16021602                              (the (values integer real) (round 2.5)))")
    16031603  ())
     1604
     1605(deftest ccl.bug-defmethod-key-warning
     1606         (progn
     1607           (fmakunbound 'ccl.bug-defmethod-key-warning.gf)
     1608           (defmethod ccl.bug-defmethod-key-warning.gf ((x integer) &key a))
     1609           (test-compiler-warning "(in-package :cl-test)
     1610                                   (defmethod ccl.bug-defmethod-key-warning.gf ((x string) &key) t)
     1611                                   (defun ccl.bug-defmethod-key-warning.gf-caller (x a)
     1612                                     (ccl.bug-defmethod-key-warning.gf x :a a))"))
     1613  nil)
Note: See TracChangeset for help on using the changeset viewer.