[Sbcl-commits] CVS: sbcl/tests type.impure.lisp,1.20,1.21

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv13699/tests

Modified Files:
	type.impure.lisp 
Log Message:
0.7.4.42:
	Reopened BUG 140, closing BUG 176 in the process.


Index: type.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/type.impure.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- type.impure.lisp	26 May 2002 15:00:24 -0000	1.20
+++ type.impure.lisp	22 Jun 2002 15:15:30 -0000	1.21
@@ -343,12 +343,14 @@
 (tests-of-inline-type-tests)
 (format t "~&/done with compiled (TESTS-OF-INLINE-TYPE-TESTS)~%")
 
+#|| Pending fix for bug 176, bug 140 has been unfixed
 ;;; Redefinition of classes should alter the type hierarchy (BUG 140):
 (defclass superclass () ())
 (defclass maybe-subclass (superclass) ())
 (assert-t-t (subtypep 'maybe-subclass 'superclass))
 (defclass maybe-subclass () ())
 (assert-nil-t (subtypep 'maybe-subclass 'superclass))
+||#
 
 ;;; success
 (quit :unix-status 104)