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

Diff of /src/code/lispinit.lisp

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

revision 1.31 by wlott, Sat Feb 29 02:29:50 1992 UTC revision 1.31.1.1 by wlott, Tue Mar 3 08:20:43 1992 UTC
# Line 59  Line 59 
59    see where they are being expanded.")    see where they are being expanded.")
60    
61    
 ;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs...  
 (proclaim '(special *gc-inhibit* *already-maybe-gcing*  
                     *need-to-collect-garbage* *gc-verbose*  
                     *before-gc-hooks* *after-gc-hooks*  
                     unix::*interrupts-enabled*  
                     unix::*interrupt-pending*  
                     c::*type-system-initialized*))  
   
   
 ;;;; Random magic specials.  
   
   
 ;;; These are filled in by Genesis.  
   
 (defvar *current-catch-block*)  
 (defvar *current-unwind-block*)  
 (defvar *free-interrupt-context-index*)  
   
   
62    
63  ;;;; Global ports:  ;;;; Global ports:
64    
# Line 469  Line 450 
450  ;;; %End-Of-The-World.  We quit this way so that all outstanding cleanup forms  ;;; %End-Of-The-World.  We quit this way so that all outstanding cleanup forms
451  ;;; in Unwind-Protects will get executed.  ;;; in Unwind-Protects will get executed.
452    
453  (proclaim '(special *lisp-initialization-functions*  ;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs...
454                      *load-time-values*))  (proclaim '(special *lisp-initialization-functions* *sigcontext-chain*
455                        *gc-verbose* *before-gc-hooks* *after-gc-hooks*
456                        c::*type-system-initialized*))
457    
458    
459  (eval-when (compile)  (eval-when (compile)
460    (defmacro print-and-call (name)    (defmacro print-and-call (name)
# Line 480  Line 464 
464    
465  (defun %initial-function ()  (defun %initial-function ()
466    "Gives the world a shove and hopes it spins."    "Gives the world a shove and hopes it spins."
467    (setf *already-maybe-gcing* t)    (%primitive print "In initial-function, and running.")
468    (setf *gc-inhibit* t)  
469    (setf *need-to-collect-garbage* nil)    (setf *gc-verbose* nil)
   (setf *gc-verbose* t)  
470    (setf *before-gc-hooks* nil)    (setf *before-gc-hooks* nil)
471    (setf *after-gc-hooks* nil)    (setf *after-gc-hooks* nil)
   (setf unix::*interrupts-enabled* t)  
   (setf unix::*interrupt-pending* nil)  
472    (setf c::*type-system-initialized* nil)    (setf c::*type-system-initialized* nil)
473    (%primitive print "In initial-function, and running.")    (setf *sigcontext-chain* nil)
474    
475    ;; Many top-level forms call INFO, (SETF INFO).    ;; Many top-level forms call INFO, (SETF INFO).
476    (print-and-call c::globaldb-init)    (print-and-call c::globaldb-init)
# Line 548  Line 529 
529    ;; have changed the compliation policy in strange ways.    ;; have changed the compliation policy in strange ways.
530    (print-and-call c::proclaim-init)    (print-and-call c::proclaim-init)
531    
532      (setf *gc-verbose* t)
533    (%primitive print "Done initializing.")    (%primitive print "Done initializing.")
534    
   (setf *already-maybe-gcing* nil)  
535    (terpri)    (terpri)
536    (princ "CMU Common Lisp kernel core image ")    (princ "CMU Common Lisp kernel core image ")
537    (princ (lisp-implementation-version))    (princ (lisp-implementation-version))

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.31.1.1

  ViewVC Help
Powered by ViewVC 1.1.5