X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.impure.lisp;h=248955ec43897168131e383be620e5bb47ec07ee;hb=905a0fc4c21ff6c8c752b9436e0616b868f1dfcc;hp=02ee7f748c67ad78106d83f6f115742edfcb5e87;hpb=d3c56c291d4d4eff8c3ec234d5ed904fe5b55df4;p=sbcl.git

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index 02ee7f7..248955e 100644
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -30,7 +30,7 @@
 	       (real 4 8) (real -1 7) (real 2 11)
 	       null symbol keyword
 	       (member #\a #\b #\c) (member 1 #\a) (member 3.0 3.3)
-	       (integer -1 1)
+              (member #\a #\c #\d #\f) (integer -1 1)
 	       unsigned-byte
 	       (rational -1 7) (rational -2 4)
 	       ratio
@@ -334,24 +334,25 @@
      (assert (eq (car (sb-pcl:class-direct-superclasses
 		       (find-class 'simple-condition)))
 		 (find-class 'condition)))
-
-    (let ((subclasses (mapcar #'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 (find-class
-                                                      'simple-condition))
-                     subclasses))))
-
+    
+     #+nil ; doesn't look like a good test
+     (let ((subclasses (mapcar #'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 (find-class
+                                                       'simple-condition))
+                      subclasses))))
+    
      ;; precedence lists
-     (assert (equal (sb-pcl:class-precedence-list
-		     (find-class 'simple-condition))
-		    (mapcar #'find-class '(simple-condition
-					   condition
-					   sb-pcl::slot-object
+     (assert (equal (sb-pcl:class-precedence-list 
+	 	     (find-class 'simple-condition))
+	            (mapcar #'find-class '(simple-condition
+			 		   condition
+				 	   sb-pcl::slot-object
 					   sb-kernel:instance
 					   t))))