/[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.5.1.2 by wlott, Wed Apr 25 21:49:33 1990 UTC revision 1.5.1.3 by wlott, Fri May 25 20:32:02 1990 UTC
# Line 59  Line 59 
59    
60  ;;; Make the error system enable interrupts.  ;;; Make the error system enable interrupts.
61    
62  (defconstant most-positive-fixnum (1- (ash 1 29))  (defconstant most-positive-fixnum #.vm:target-most-positive-fixnum
63    "The fixnum closest in value to positive infinity.")    "The fixnum closest in value to positive infinity.")
64    
65  (defconstant most-negative-fixnum (ash -1 29)  (defconstant most-negative-fixnum #.vm:target-most-negative-fixnum
66    "The fixnum closest in value to negative infinity.")    "The fixnum closest in value to negative infinity.")
67    
68    
# Line 516  Line 516 
516    (makunbound '*lisp-initialization-functions*) ; So it gets GC'ed.    (makunbound '*lisp-initialization-functions*) ; So it gets GC'ed.
517    
518    (print-and-call os-init)    (print-and-call os-init)
   #+nil  
519    (print-and-call filesys-init)    (print-and-call filesys-init)
520    #+nil    #+nil
521    (print-and-call conditions::error-init)    (print-and-call conditions::error-init)
522    
   #+nil  
523    (print-and-call reader-init)    (print-and-call reader-init)
   #+nil  
524    (print-and-call backq-init)    (print-and-call backq-init)
   #+nil  
525    (print-and-call sharp-init)    (print-and-call sharp-init)
526    ;; After the various reader subsystems have done their thing to the standard    ;; After the various reader subsystems have done their thing to the standard
527    ;; readtable, copy it to *readtable*.    ;; readtable, copy it to *readtable*.
   #+nil  
528    (setq *readtable* (copy-readtable std-lisp-readtable))    (setq *readtable* (copy-readtable std-lisp-readtable))
529    
   #+nil  
530    (print-and-call stream-init)    (print-and-call stream-init)
531    #+nil    #+nil
532    (print-and-call random-init)    (print-and-call random-init)
   #+nil  
533    (print-and-call format-init)    (print-and-call format-init)
   #+nil  
534    (print-and-call package-init)    (print-and-call package-init)
535    #+nil    #+nil
536    (print-and-call pprint-init)    (print-and-call pprint-init)
537    
538      (%primitive print "Done initializing.")
539    
540    (setq *already-maybe-gcing* nil)    (setq *already-maybe-gcing* nil)
541    (terpri)    (terpri)
542    (princ "CMU Common Lisp kernel core image ")    (princ "CMU Common Lisp kernel core image ")
# Line 555  Line 549 
549      (loop      (loop
550       (%top-level)       (%top-level)
551       (write-line "You're certainly a clever child.")))       (write-line "You're certainly a clever child.")))
   #+nil  
552    (mach:unix-exit 0))    (mach:unix-exit 0))
553    
554    
# Line 569  Line 562 
562    (without-interrupts    (without-interrupts
563     (setq *already-maybe-gcing* t)     (setq *already-maybe-gcing* t)
564     (os-init)     (os-init)
    #+nil  
565     (stream-reinit)     (stream-reinit)
566     (setq *already-maybe-gcing* nil))     (setq *already-maybe-gcing* nil))
567    #+nil    #+nil
   (setq *task-notify* (mach:mach-task_notify))  
   #+nil  
568    (mach:port_enable (mach:mach-task_self) *task-notify*)    (mach:port_enable (mach:mach-task_self) *task-notify*)
569    #+nil    #+nil
570    (add-port-object *task-notify* nil *kernel-messages*)    (add-port-object *task-notify* nil *kernel-messages*)
571    #+nil    #+nil
572    (init-mach-signals))    (init-mach-signals))
573    
   
574  ;;; OS-Init initializes our operating-system interface.  It sets the values  ;;; OS-Init initializes our operating-system interface.  It sets the values
575  ;;; of the global port variables to what they should be and calls the functions  ;;; of the global port variables to what they should be and calls the functions
576  ;;; that set up the argument blocks for the server interfaces.  ;;; that set up the argument blocks for the server interfaces.
577    
578  (defun os-init ()  (defun os-init ()
   #+nil  
579    (setq *task-self* (mach:mach-task_self))    (setq *task-self* (mach:mach-task_self))
580    #+nil    (setq *task-data* (mach:mach-task_data))
581    (setq *task-data* (mach:mach-task_data)))    (setq *task-notify* (mach:mach-task_notify)))
582    
583    
584  ;;; Setup-path-search-list returns a list of the directories that are  ;;; Setup-path-search-list returns a list of the directories that are

Legend:
Removed from v.1.5.1.2  
changed lines
  Added in v.1.5.1.3

  ViewVC Help
Powered by ViewVC 1.1.5