/[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.31.2.5 by dtc, Sat Nov 4 17:06:19 2000 UTC revision 1.31.2.6 by pw, Sat Mar 23 18:50:10 2002 UTC
# Line 91  Line 91 
91    
92    (setf (search-list "library:")    (setf (search-list "library:")
93          (or (parse-unix-search-list :cmucllib)          (or (parse-unix-search-list :cmucllib)
94              '(#+mach  "/usr/misc/.cmucl/lib/"              '("/usr/local/lib/cmucl/lib/")))
95                #+linux "/usr/lib/cmucl/"    (setf (search-list "modules:") (ext:unix-namestring "library:subsystems/")))
               #-(or mach linux) "/usr/local/lib/cmucl/lib/"))))  
96    
97    
98    
# Line 111  Line 110 
110                                   (load-init-file t)                                   (load-init-file t)
111                                   (site-init "library:site-init")                                   (site-init "library:site-init")
112                                   (print-herald t)                                   (print-herald t)
113                                   (process-command-line t))                                   (process-command-line t)
114                                     (batch-mode nil))
115    "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
116    following keywords are defined:    following keywords are defined:
117    
# Line 144  Line 144 
144        library:site-init.  No error if this does not exist.        library:site-init.  No error if this does not exist.
145    
146    :print-herald    :print-herald
147        If true (the default), print out the lisp system herald when starting."        If true (the default), print out the lisp system herald when starting.
148    
149      :process-command-line
150          If true (the default), process command-line switches via the normal
151      mechanisms, otherwise ignore all switches (except those processed by the
152      C startup code).
153    
154      :batch-mode
155          If nil (the default), then the presence of the -batch command-line
156      switch will invoke batch-mode processing.  If true, the produced core
157      will always be in batch-mode, regardless of any command-line switches."
158    
159    #+mp (mp::shutdown-multi-processing)    #+mp (mp::shutdown-multi-processing)
160    (when (fboundp 'eval:flush-interpreted-function-cache)    (when (fboundp 'eval:flush-interpreted-function-cache)
# Line 156  Line 166 
166                :environment-name environment-name)                :environment-name environment-name)
167        #-gencgc (gc) #+gencgc (gc :full t))        #-gencgc (gc) #+gencgc (gc :full t))
168    (dolist (f *before-save-initializations*) (funcall f))    (dolist (f *before-save-initializations*) (funcall f))
169      (setq ext:*batch-mode* (if batch-mode t nil))
170    (labels    (labels
171        ((%restart-lisp ()        ((%restart-lisp ()
172           (with-simple-restart (abort "Skip remaining initializations.")           (with-simple-restart (abort "Skip remaining initializations.")
# Line 172  Line 183 
183                                   :test #'(lambda (x y)                                   :test #'(lambda (x y)
184                                             (declare (simple-string x y))                                             (declare (simple-string x y))
185                                             (string-equal x y)))))                                             (string-equal x y)))))
186                 (when site-init                 (when (and site-init
187                              (not (and process-command-line
188                                        (find-switch "nositeinit"))))
189                   (load site-init :if-does-not-exist nil :verbose nil))                   (load site-init :if-does-not-exist nil :verbose nil))
190                 (when (and process-command-line (find-switch "edit"))                 (when (and process-command-line (find-switch "edit"))
191                   (setf *editor-lisp-p* t))                   (setf *editor-lisp-p* t))

Legend:
Removed from v.1.31.2.5  
changed lines
  Added in v.1.31.2.6

  ViewVC Help
Powered by ViewVC 1.1.5