/[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.77 by rtoy, Thu Oct 4 19:58:19 2007 UTC revision 1.78 by cshapiro, Wed Nov 14 10:04:33 2007 UTC
# Line 400  Line 400 
400    (print-and-call kernel::signal-init)    (print-and-call kernel::signal-init)
401    (setf (alien:extern-alien "internal_errors_enabled" boolean) t)    (setf (alien:extern-alien "internal_errors_enabled" boolean) t)
402    
403    (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero)    (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))
                             #+x86 :precision-control #+x86 :53-bit)  
404    ;; This is necessary because some of the initial top level forms might    ;; This is necessary because some of the initial top level forms might
405    ;; have changed the compilation policy in strange ways.    ;; have changed the compilation policy in strange ways.
406    (print-and-call c::proclaim-init)    (print-and-call c::proclaim-init)

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

  ViewVC Help
Powered by ViewVC 1.1.5