X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fclos.impure.lisp;h=c415f1a8ffa73d8750a311da34cc6eb428bcbd36;hb=2b0710d31c3fa1e5448ec842504d5276842e394f;hp=5bdccb2ba7262d607ebb451b6b31ccf67ac36ce9;hpb=96eea51e453a0033d1c24f32aa81176bceea4ba2;p=sbcl.git

diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp
index 5bdccb2..c415f1a 100644
--- a/tests/clos.impure.lisp
+++ b/tests/clos.impure.lisp
@@ -1256,4 +1256,16 @@
 (assert (not (typep-backwards-3 (make-instance 'backwards-2))))
 (assert (typep-backwards-3 (make-instance 'backwards-3)))
 
+(defgeneric remove-method-1 (x)
+  (:method ((x integer)) (1+ x)))
+(defgeneric remove-method-2 (x)
+  (:method ((x integer)) (1- x)))
+(assert (eq #'remove-method-1
+            (remove-method #'remove-method-1
+                           (find-method #'remove-method-2
+                                        nil
+                                        (list (find-class 'integer))))))
+(assert (= (remove-method-1 3) 4))
+(assert (= (remove-method-2 3) 2))
+
 ;;;; success