/[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.15 by wlott, Tue Oct 23 02:04:37 1990 UTC revision 1.15.1.1 by wlott, Sat Nov 24 19:53:44 1990 UTC
# Line 482  Line 482 
482    
483  (defun %initial-function ()  (defun %initial-function ()
484    "Gives the world a shove and hopes it spins."    "Gives the world a shove and hopes it spins."
485      (%primitive print "In initial-function, and running.")
486    (setf *already-maybe-gcing* t)    (setf *already-maybe-gcing* t)
487    (setf *gc-inhibit* t)    (setf *gc-inhibit* t)
488    (setf *need-to-collect-garbage* nil)    (setf *need-to-collect-garbage* nil)
# Line 491  Line 492 
492    (setf mach::*interrupts-enabled* t)    (setf mach::*interrupts-enabled* t)
493    (setf mach::*interrupt-pending* nil)    (setf mach::*interrupt-pending* nil)
494    (setf c::*type-system-initialized* nil)    (setf c::*type-system-initialized* nil)
   (%primitive print "In initial-function, and running.")  
495    
496    ;; Many top-level forms call INFO, (SETF INFO).    ;; Many top-level forms call INFO, (SETF INFO).
497    (print-and-call c::globaldb-init)    (print-and-call c::globaldb-init)
# Line 512  Line 512 
512    
513    (print-and-call os-init)    (print-and-call os-init)
514    (print-and-call filesys-init)    (print-and-call filesys-init)
515    (print-and-call conditions::error-init)    ;(print-and-call conditions::error-init)
516    (print-and-call kernel::signal-init)    ;(print-and-call kernel::signal-init)
517    
518    (print-and-call reader-init)    (print-and-call reader-init)
519    (print-and-call backq-init)    ;(print-and-call backq-init)
520    (print-and-call sharp-init)    ;(print-and-call sharp-init)
521    ;; After the various reader subsystems have done their thing to the standard    ;; After the various reader subsystems have done their thing to the standard
522    ;; readtable, copy it to *readtable*.    ;; readtable, copy it to *readtable*.
523    (setf *readtable* (copy-readtable std-lisp-readtable))    (setf *readtable* (copy-readtable std-lisp-readtable))
524    
525    (print-and-call stream-init)    (print-and-call stream-init)
526    (print-and-call loader-init)    (print-and-call loader-init)
527    #+nil    ;(print-and-call format-init)
   (print-and-call random-init)  
   (print-and-call format-init)  
528    (print-and-call package-init)    (print-and-call package-init)
   #+nil  
   (print-and-call pprint-init)  
529    
530    (%primitive print "Done initializing.")    (%primitive print "Done initializing.")
531    
532    (setf *already-maybe-gcing* nil)    (setf *already-maybe-gcing* nil)
533    (terpri)    (terpri)
534    (princ "CMU Common Lisp kernel core image ")    (princ "CMU Common Lisp kernel core image ")
535    (princ (lisp-implementation-version))    (princ *lisp-implementation-version*)
536    (princ ".")    (princ ".")
537    (terpri)    (terpri)
538    (princ "[You are in the LISP package.]")    (princ "[You are in the LISP package.]")

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.15.1.1

  ViewVC Help
Powered by ViewVC 1.1.5