[Sbcl-commits] CVS: sbcl/src/compiler info-functions.lisp,1.20,1.20.4.1

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

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

Modified Files:
      Tag: pcl_build_1_branch
	info-functions.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: info-functions.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/info-functions.lisp,v
retrieving revision 1.20
retrieving revision 1.20.4.1
diff -u -d -r1.20 -r1.20.4.1
--- info-functions.lisp	31 Jan 2003 09:28:35 -0000	1.20
+++ info-functions.lisp	27 Feb 2003 13:34:14 -0000	1.20.4.1
@@ -42,6 +42,12 @@
   (check-fun-name name)
 
   ;; scrubbing old data I: possible collision with old definition
+  ;;
+  ;; only do this on the target, as we shouldn't do any of this in our
+  ;; own build, and further we will want to reason about function
+  ;; names which don't make sense in the context of the host compiler
+  ;; (FBOUNDP will signal an error).
+  #-sb-xc-host
   (when (fboundp name)
     (ecase (info :function :kind name)
       (:function) ; happy case