/[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.78.4.2.2.1 by rtoy, Wed Jul 2 01:22:07 2008 UTC revision 1.78.4.2.2.2 by rtoy, Wed Jul 2 12:48:52 2008 UTC
# Line 398  Line 398 
398    ;; Note: sharpm and backq not yet loaded, so this is not the final RT.    ;; Note: sharpm and backq not yet loaded, so this is not the final RT.
399    (setf *readtable* (copy-readtable std-lisp-readtable))    (setf *readtable* (copy-readtable std-lisp-readtable))
400    
401      ;; FIXME: The unicode branch wants the keyword package in place
402      ;; before initializing streams.  Conditional on unicode for now, but
403      ;; we should make this consistent, if possible.
404      #-unicode
405    (print-and-call stream-init)    (print-and-call stream-init)
406    (print-and-call loader-init)    (print-and-call loader-init)
407    (print-and-call package-init)    (print-and-call package-init)
408      #+unicode
409      (print-and-call stream-init)
410    (print-and-call kernel::signal-init)    (print-and-call kernel::signal-init)
411    (setf (alien:extern-alien "internal_errors_enabled" boolean) t)    (setf (alien:extern-alien "internal_errors_enabled" boolean) t)
412    

Legend:
Removed from v.1.78.4.2.2.1  
changed lines
  Added in v.1.78.4.2.2.2

  ViewVC Help
Powered by ViewVC 1.1.5