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

diff --git a/src/cold/snapshot.lisp b/src/cold/snapshot.lisp
index da55f23..0e6723d 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
@@ -114,6 +131,10 @@
 			     cl::*current-unwind-protect-block*
 			     cl::*load-depth*
 			     cl::*free-fop-tables*
+			     cl::*load-symbol-buffer*
+			     cl::*load-symbol-buffer-size*
+			     cl::in-index
+			     cl::in-buffer
 			     ;; These two are changed by PURIFY.
 			     cl::*static-space-free-pointer*
 			     cl::*static-space-end-pointer*)