/[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.67 by pmai, Fri Aug 23 17:08:52 2002 UTC revision 1.67.2.1 by pmai, Fri Oct 4 23:13:26 2002 UTC
# Line 284  Line 284 
284  ;;; in Unwind-Protects will get executed.  ;;; in Unwind-Protects will get executed.
285    
286  (declaim (special *lisp-initialization-functions*  (declaim (special *lisp-initialization-functions*
287                      #+unicode *initial-fdefn-objects*
288                    *load-time-values*))                    *load-time-values*))
289    
290  (eval-when (compile)  (eval-when (compile)
# Line 291  Line 292 
292      `(progn      `(progn
293         (%primitive print ,(symbol-name name))         (%primitive print ,(symbol-name name))
294         (,name))))         (,name))))
295  #+nil  
296  (defun hexstr(thing)  (defun hexstr (thing)
297    (let ((addr (kernel:get-lisp-obj-address thing))    (let ((addr (kernel:get-lisp-obj-address thing))
298          (str (make-string 10)))          #-unicode
299            (str (make-string 10))
300            #+unicode
301            (str (make-string 10 :element-type 'base-char)))
302      (setf (char str 0) #\0      (setf (char str 0) #\0
303            (char str 1) #\x)            (char str 1) #\x)
304      (dotimes (i 8)      (dotimes (i 8)
# Line 330  Line 334 
334    ;; Some of the random top-level forms call Make-Array, which calls Subtypep    ;; Some of the random top-level forms call Make-Array, which calls Subtypep
335    (print-and-call typedef-init)    (print-and-call typedef-init)
336    (print-and-call class-init)    (print-and-call class-init)
337      #+unicode
338      (print-and-call char-init)
339    (print-and-call type-init)    (print-and-call type-init)
340    
341    (let ((funs (nreverse *lisp-initialization-functions*)))    (let ((funs (nreverse *lisp-initialization-functions*)))
# Line 394  Line 400 
400    
401    #-gengc (setf *already-maybe-gcing* nil)    #-gengc (setf *already-maybe-gcing* nil)
402    #+gengc (setf *gc-verbose* t)    #+gengc (setf *gc-verbose* t)
403    
404      #+locale ; set up stdio - assuming that we have the external-format loaded
405      (locale:locale-init)
406    
407      #+unicode
408      (print-and-call external-format:external-format-init)
409    
410      #+dialect
411      (dialect:dialect-init)
412    
413      #+unicode ; if :default external-format changed, we need to rebuild stdio
414      (stream-reinit)
415    
416    (terpri)    (terpri)
417    (princ "CMU Common Lisp kernel core image ")    (princ "CMU Common Lisp kernel core image ")
418    (princ (lisp-implementation-version))    (princ (lisp-implementation-version))
# Line 444  Line 463 
463    (without-interrupts    (without-interrupts
464     (without-gcing     (without-gcing
465      (os-init)      (os-init)
466        #+locale
467        (locale:locale-init)
468      (stream-reinit)      (stream-reinit)
469      (kernel::signal-init)      (kernel::signal-init)
470      (gc-init)      (gc-init)

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.67.2.1

  ViewVC Help
Powered by ViewVC 1.1.5