X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-26.impure.lisp;h=c7a2b2b1383be4df62c486c4f1846ee9c8f72d1c;hb=31f68584d0732dc0d17f379773e5f87f1e5a78ad;hp=b70f9236de6debb8a2c47b43a44ef28660291354;hpb=1e84b68ce9baada2c03802da5f2ce7f21a3ca171;p=sbcl.git

diff --git a/tests/mop-26.impure.lisp b/tests/mop-26.impure.lisp
index b70f923..c7a2b2b 100644
--- a/tests/mop-26.impure.lisp
+++ b/tests/mop-26.impure.lisp
@@ -34,3 +34,9 @@
 
 (assert (test (make-instance 'super)))
 (assert (null (test (make-instance 'sub))))
+
+(let ((spec (sb-pcl::class-eq-specializer (find-class 't))))
+  (eval `(defmethod test ((x ,spec)) (class-of x))))
+
+(assert (test (make-instance 'super)))
+(assert (null (test (make-instance 'sub))))