[Sbcl-commits] CVS: sbcl/src/cold warm.lisp,1.32.2.4,1.32.2.5

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

Update of /cvsroot/sbcl/sbcl/src/cold
In directory sc8-pr-cvs1:/tmp/cvs-serv3641/src/cold

Modified Files:
      Tag: pcl_build_1_branch
	warm.lisp 
Log Message:
0.7.12.pcl-build1.5
        Move defclass and defs into cold build
        ... define COLD-DEFCLASS, and use it to make early classes
        ... simplify DEFCLASS and s/REAL-LOAD-DEFCLASS/LOAD-DEFCLASS
        ... only do FBOUNDP checks when we're in charge of what a
                function name is

This is perhaps indicative of the way to go.  We'll use COLD-DEFFOO to
build up early classes/methods/generic functions, which will then be
turned into late ones in early COLD-INIT, so that by the time
ordinary top-level forms run we're all set up and ready to cope with     
LOAD-DEFCLASS requests.

Hrm.  I see in our cold-init sequence !CLASS-FINALIZE, which would seem  
to break this plan.  Maybe !CLASS-FINALIZE will need to run earlier --   
pre-genesis -- so that Lisp classes are actually finalized before they   
currently are?  Or maybe it's a no-op anyway?  Currently I believe that  
there are no classes in *FORWARD-REFERENCED-LAYOUTS* that don't have a   
layout.


Index: warm.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/cold/warm.lisp,v
retrieving revision 1.32.2.4
retrieving revision 1.32.2.5
diff -u -d -r1.32.2.4 -r1.32.2.5
--- warm.lisp	26 Feb 2003 09:40:07 -0000	1.32.2.4
+++ warm.lisp	27 Feb 2003 13:34:14 -0000	1.32.2.5
@@ -13,7 +13,6 @@
 
 ;;;; general warm init compilation policy
 
-
 (proclaim '(optimize (compilation-speed 1)
 		     (debug #+sb-show 2 #-sb-show 1)
 		     (inhibit-warnings 2)
@@ -105,8 +104,8 @@
 		#+nil "src/pcl/low"
                 #+nil "src/pcl/slot-name"
 		#+nil "src/pcl/fngen"
-		"src/pcl/defclass"
-		"src/pcl/defs"
+		#+nil "src/pcl/defclass"
+		#+nil "src/pcl/defs"
 		"src/pcl/cache"
 		"src/pcl/dlisp"
 		"src/pcl/dlisp2"