[Sbcl-commits] CVS: sbcl/src/pcl std-class.lisp,1.40,1.41

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

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv14610/src/pcl

Modified Files:
	std-class.lisp 
Log Message:
0.pre8.21:
	Merge patch from Gerd Moellmann (sbcl-devel 2003-03-29) to make 
		FIND-CLASS (SB-PCL:FIND-CLASS as was) available earlier 
		in the MOP methods (requested by KMR sbcl-devel 
		2003-03-28)
	... (SETF FIND-CLASS) in UPDATE-CLASS.


Index: std-class.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/std-class.lisp,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- std-class.lisp	29 Mar 2003 15:14:30 -0000	1.40
+++ std-class.lisp	31 Mar 2003 15:20:47 -0000	1.41
@@ -507,8 +507,8 @@
 				     (make-class-predicate-name (class-name
 								 class))))))
   (add-direct-subclasses class direct-superclasses)
-  (update-class class nil)
   (make-class-predicate class predicate-name)
+  (update-class class nil)
   (add-slot-accessors class direct-slots))
 
 (defmethod shared-initialize :before ((class class) slot-names &key name)
@@ -742,6 +742,7 @@
     (return-from update-class))
   (when (or finalizep (class-finalized-p class)
 	    (not (class-has-a-forward-referenced-superclass-p class)))
+    (setf (find-class (class-name class)) class)
     (update-cpl class (compute-class-precedence-list class))
     ;; This invocation of UPDATE-SLOTS, in practice, finalizes the
     ;; class.  The hoops above are to ensure that FINALIZE-INHERITANCE