Fix make-array transforms.

[sbcl.git] / tests / mop-26.impure.lisp

diff --git a/tests/mop-26.impure.lisp b/tests/mop-26.impure.lisp
index b70f923..c7a2b2b 100644 (file)
--- 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))))