X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fsnapshot.lisp;h=a52d1ca5c07f5fdb86f96566d59096e48c0d5151;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=da55f237a02173775fda90d36fd8e2b11c6ce6d6;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/cold/snapshot.lisp b/src/cold/snapshot.lisp
index da55f23..a52d1ca 100644
--- a/src/cold/snapshot.lisp
+++ b/src/cold/snapshot.lisp
@@ -1,4 +1,23 @@
 ;;;; code to detect whether a package has changed
+;;;;
+;;;; This is really old code which was most useful when first
+;;;; bootstrapping SBCL when only CMU CL was available as an XC host.
+;;;; Its main purpose was to check that legacy code like DEFMACRO
+;;;; DOLIST and DEFUN IR1-OPTIMIZE-UNTIL-DONE was all correctly
+;;;; converted from code which mutated the XC host into code which
+;;;; built things for the target.
+;;;;
+;;;; These days, things like DEFUN IR1-OPTIMIZE-UNTIL-DONE can't very
+;;;; well be mutating the cross-compiler host because we can build
+;;;; successfully under OpenMCL, which shouldn't have the same
+;;;; packages or symbols. So we don't need to worry very much about
+;;;; modifying the XC host's private packages. However, it's still
+;;;; conceivable that something affecting the XC host's CL package
+;;;; (maybe DEFMACRO DOLIST?) could be written in such a way that it
+;;;; would silently compile under SBCL, CMU CL, and even OpenMCL, and
+;;;; still be fundamentally wrong. Since it'd be good to prevent such
+;;;; modifications of the XC host's CL package, this code is still
+;;;; retained despite being a little strange.
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -11,8 +30,6 @@
 
 (in-package "SB-COLD")
 
-;;;; $Header$
-
 (defstruct snapshot
   (hash-table (make-hash-table :test 'eq)
 	      :type hash-table
@@ -104,7 +121,7 @@
 		      #-cmu nil
 		      #+cmu (cl::*gc-trigger*
 			     cl::inch-ptr
-			     cl::*internal-symbol-output-function*
+			     cl::*internal-symbol-output-fun*
 			     cl::ouch-ptr
 			     cl::*previous-case*
 			     cl::read-buffer