0.6.12.13:

[sbcl.git] / src / code / save.lisp

diff --git a/src/code/save.lisp b/src/code/save.lisp
index ad79a4d..beb9286 100644 (file)
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -14,9 +14,6 @@
 ;;;; files for more information.
 
 (in-package "SB!IMPL")
 ;;;; files for more information.
 
 (in-package "SB!IMPL")

-
-(file-comment
-  "$Header$")

 \f
 (defvar *before-save-initializations* nil
   #!+sb-doc
 \f
 (defvar *before-save-initializations* nil
   #!+sb-doc

@@ -42,7 +39,7 @@
 ;;; image to make a running Lisp, the memory never gets reclaimed.
 ;;; (But with the PURIFY option it seems to work OK.)
 (defun save-lisp-and-die (core-file-name &key
 ;;; image to make a running Lisp, the memory never gets reclaimed.
 ;;; (But with the PURIFY option it seems to work OK.)
 (defun save-lisp-and-die (core-file-name &key

-                                        (toplevel #'toplevel)
+                                        (toplevel #'toplevel-init)

                                         (purify nil)
                                         (root-structures ())
                                         (environment-name "auxiliary"))
                                         (purify nil)
                                         (root-structures ())
                                         (environment-name "auxiliary"))

@@ -51,7 +48,7 @@
   killing the current Lisp invocation in the process (unless it bails
   out early because of some argument error or something).
 
   killing the current Lisp invocation in the process (unless it bails
   out early because of some argument error or something).
 

-  The following keyword args are defined:
+  The following &KEY args are defined:

 
   :TOPLEVEL
       The function to run when the created core file is resumed.
 
   :TOPLEVEL
       The function to run when the created core file is resumed.

@@ -107,8 +104,8 @@
 \f
 ;;;; functions used by worldload.lisp in CMU CL bootstrapping
 
 \f
 ;;;; functions used by worldload.lisp in CMU CL bootstrapping
 

-;;; If Name has been byte-compiled, and :RUNTIME is a feature, then load the
-;;; byte-compiled version, otherwise just do normal load.
+;;; If NAME has been byte-compiled, and :RUNTIME is a feature, then
+;;; load the byte-compiled version, otherwise just do normal load.

 #+nil ; no longer needed in SBCL.. I think.. -- WHN 19990814
 (defun maybe-byte-load (name &optional (load-native t))
   (let ((bname (make-pathname
 #+nil ; no longer needed in SBCL.. I think.. -- WHN 19990814
 (defun maybe-byte-load (name &optional (load-native t))
   (let ((bname (make-pathname