0.7.1.24:

[sbcl.git] / src / cold / snapshot.lisp

diff --git a/src/cold/snapshot.lisp b/src/cold/snapshot.lisp
index da55f23..846c06f 100644 (file)
--- a/src/cold/snapshot.lisp
+++ b/src/cold/snapshot.lisp
@@ -11,8 +11,6 @@
 
 (in-package "SB-COLD")
 
-;;;; $Header$
-
 (defstruct snapshot
   (hash-table (make-hash-table :test 'eq)
              :type hash-table
@@ -104,7 +102,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