X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftype.impure.lisp;h=3b6a76b434a99c7be708ab6f56b4b5fdd4bd94f0;hb=63cef087068afc157283c0a05ae1f16b962303aa;hp=4ce036367b6ce924b44afd211cf2a69e76c8699c;hpb=5edd74f6911093805a009a152b32216b3dba59f7;p=sbcl.git

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index 4ce0363..3b6a76b 100644
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -196,14 +196,17 @@
      (assert (eq (car (sb-pcl:class-direct-superclasses (sb-pcl:find-class
 							 'simple-condition)))
 		 (sb-pcl:find-class 'condition)))
-     (assert (null (set-difference
-		    (sb-pcl:class-direct-subclasses (sb-pcl:find-class
-						     'simple-condition))
-		    (mapcar #'sb-pcl:find-class
-			    '(simple-type-error
-			      simple-error
-                              sb-int:simple-file-error
-                              sb-int:simple-style-warning)))))
+
+    (let ((subclasses (mapcar #'sb-pcl:find-class
+                              '(simple-type-error
+                                simple-error
+                                simple-warning
+                                sb-int:simple-file-error
+                                sb-int:simple-style-warning))))
+      (assert (null (set-difference
+                     (sb-pcl:class-direct-subclasses (sb-pcl:find-class
+                                                      'simple-condition))
+                     subclasses))))
 
      ;; precedence lists
      (assert (equal (sb-pcl:class-precedence-list