X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-26.impure.lisp;h=c7a2b2b1383be4df62c486c4f1846ee9c8f72d1c;hb=b1a1d1280f0003e0d5af9996274c95a78f188b37;hp=b70f9236de6debb8a2c47b43a44ef28660291354;hpb=11d63973b40deaab9c555bcdab8d5a742c814b48;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))))