[Sbcl-commits] CVS: sbcl/src/code class.lisp,1.69,1.70

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

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv1617/src/code

Modified Files:
	class.lisp 
Log Message:
0.9.14.25:
	Fix bug (reported by Jasko on #lisp) regarding 
	TYPEP on funcallable-standard-classes with accessors.
	... make a STANDARD-CLASSOID for funcallable-standard-classes, 
		too, as they behave (wrt the type system) in the same 
		way.
	... STD-CLASSOID is now useless; delete it.
	... simplify MAKE-PRELIMINARY-LAYOUT a bit, since MAKE-WRAPPER 
		now does the right thing.


Index: class.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/class.lisp,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- class.lisp	17 Jul 2006 12:28:13 -0000	1.69
+++ class.lisp	19 Jul 2006 18:30:28 -0000	1.70
@@ -939,11 +939,15 @@
 
 ;;;; PCL stuff
 
-(def!struct (std-classoid (:include classoid)
-                          (:constructor nil)))
-(def!struct (standard-classoid (:include std-classoid)
+;;; the CLASSOID that we use to represent type information for
+;;; STANDARD-CLASS and FUNCALLABLE-STANDARD-CLASS.  The type system
+;;; side does not need to distinguish between STANDARD-CLASS and
+;;; FUNCALLABLE-STANDARD-CLASS.
+(def!struct (standard-classoid (:include classoid)
                                (:constructor make-standard-classoid)))
-(def!struct (random-pcl-classoid (:include std-classoid)
+;;; a metaclass for miscellaneous PCL structure-like objects (at the
+;;; moment, only CTOR objects).
+(def!struct (random-pcl-classoid (:include classoid)
                                  (:constructor make-random-pcl-classoid)))
 
 ;;;; built-in classes