/[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.1.1.3 by wlott, Mon Jul 2 04:36:58 1990 UTC revision 1.1.1.4 by wlott, Fri Jul 13 20:38:56 1990 UTC
# Line 129  Line 129 
129      (funcall init-function)))      (funcall init-function)))
130    
131    
   
132  (defun print-herald ()  (defun print-herald ()
133    (macrolet ((frob (variable)    (macrolet ((frob (variable)
134                 `(if (boundp ',variable)                 `(if (boundp ',variable)
# Line 145  Line 144 
144      (write-line (frob compiler-version))      (write-line (frob compiler-version))
145      (write-line "Send bug reports and questions to Gripe."))      (write-line "Send bug reports and questions to Gripe."))
146    (values))    (values))
147    
148    
149    ;;;; Random functions used by worldload.
150    
151    (defun assert-user-package ()
152      (unless (eq *package* (find-package "USER"))
153        (error "Change *PACKAGE* to the USER package and try again.")))
154    
155    (defun initial-init-function ()
156      (gc-on)
157      (throw 'top-level-catcher nil))
158    

Legend:
Removed from v.1.1.1.3  
changed lines
  Added in v.1.1.1.4

  ViewVC Help
Powered by ViewVC 1.1.5