/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.66 by rtoy, Fri Mar 19 15:18:59 2010 UTC revision 1.67 by rtoy, Mon Apr 19 02:18:04 2010 UTC
# Line 26  Line 26 
26  (in-package "LISP")  (in-package "LISP")
27    
28  (defvar *before-save-initializations* nil  (defvar *before-save-initializations* nil
29    _N"This is a list of functions which are called before creating a saved core    "This is a list of functions which are called before creating a saved core
30    image.  These functions are executed in the child process which has no ports,    image.  These functions are executed in the child process which has no ports,
31    so they cannot do anything that tries to talk to the outside world.")    so they cannot do anything that tries to talk to the outside world.")
32    
33  (defvar *after-save-initializations* nil  (defvar *after-save-initializations* nil
34    _N"This is a list of functions which are called when a saved core image starts    "This is a list of functions which are called when a saved core image starts
35    up.  The system itself should be initialized at this point, but applications    up.  The system itself should be initialized at this point, but applications
36    might not be.")    might not be.")
37    
38  (defvar *environment-list* nil  (defvar *environment-list* nil
39    _N"An alist mapping environment variables (as keywords) to either values")    "An alist mapping environment variables (as keywords) to either values")
40    
41  (defvar *environment-list-initialized* nil  (defvar *environment-list-initialized* nil
42    _N"Non-NIL if environment-init has been called")    "Non-NIL if environment-init has been called")
43    
44  (defvar *editor-lisp-p* nil  (defvar *editor-lisp-p* nil
45    _N"This is true if and only if the lisp was started with the -edit switch.")    "This is true if and only if the lisp was started with the -edit switch.")
46    
47    
48    
# Line 150  Line 150 
150                                    #+:executable                                    #+:executable
151                                   (executable nil)                                   (executable nil)
152                                   (batch-mode nil))                                   (batch-mode nil))
153    _N"Saves a CMU Common Lisp core image in the file of the specified name.  The    "Saves a CMU Common Lisp core image in the file of the specified name.  The
154    following keywords are defined:    following keywords are defined:
155    
156    :purify    :purify
# Line 311  Line 311 
311  ;;;; PRINT-HERALD support.  ;;;; PRINT-HERALD support.
312    
313  (defvar *herald-items* ()  (defvar *herald-items* ()
314    _N"Determines what PRINT-HERALD prints (the system startup banner.)  This is a    "Determines what PRINT-HERALD prints (the system startup banner.)  This is a
315     database which can be augmented by each loaded system.  The format is a     database which can be augmented by each loaded system.  The format is a
316     property list which maps from subsystem names to the banner information for     property list which maps from subsystem names to the banner information for
317     that system.  This list can be manipulated with GETF -- entries are printed     that system.  This list can be manipulated with GETF -- entries are printed
# Line 374  Line 374 
374  ;;; PRINT-HERALD  --  Public  ;;; PRINT-HERALD  --  Public
375  ;;;  ;;;
376  (defun print-herald (&optional (stream *standard-output*))  (defun print-herald (&optional (stream *standard-output*))
377    _N"Print some descriptive information about the Lisp system version and    "Print some descriptive information about the Lisp system version and
378     configuration."     configuration."
379    (let ((res ()))    (let ((res ()))
380      (do ((item *herald-items* (cddr item)))      (do ((item *herald-items* (cddr item)))

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

  ViewVC Help
Powered by ViewVC 1.1.5