CVS: sbcl/tests mop.impure.lisp,1.7.4.1,1.7.4.2

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv3702/tests

Modified Files:
      Tag: pcl_class_defrobulation_branch
        mop.impure.lisp 
Log Message:
0.7.13.pcl-class.3:
        (CLASS-PROTOTYPE (FIND-CLASS 'NULL)) now returns NIL
        ... defer fix for other built-in-classes (e.g. BIGNUM) for 
                mainline post 0.7.14


Index: mop.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure.lisp,v
retrieving revision 1.7.4.1
retrieving revision 1.7.4.2
diff -u -d -r1.7.4.1 -r1.7.4.2
--- mop.impure.lisp     20 Mar 2003 16:03:55 -0000      1.7.4.1
+++ mop.impure.lisp     21 Mar 2003 09:56:12 -0000      1.7.4.2
@@ -104,5 +104,12 @@
   (assert (member (find-class x)
                  (sb-pcl:class-direct-subclasses (find-class t)))))
 
+;;; the class-prototype of the NULL class used to be some weird
+;;; standard-instance-like thing.  Make sure it's actually NIL.
+;;;
+;;; (and FIXME: eventually turn this into asserting that the prototype
+;;; of all built-in-classes is of the relevant type)
+(assert (null (sb-pcl:class-prototype (find-class 'null))))
+
 ;;;; success
 (sb-ext:quit :unix-status 104)



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf