0.8alpha.0.40:

[sbcl.git] / tests / type.impure.lisp

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index 7bd27fb..441f6ff 100644 (file)
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -337,6 +337,7 @@
                     (find-class 'simple-condition))
                    (mapcar #'find-class '(simple-condition
                                           condition
+                                          sb-pcl::slot-object
                                           sb-kernel:instance
                                           t))))