/[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.79 by rtoy, Thu Jun 11 16:03:58 2009 UTC revision 1.79.12.1 by rtoy, Mon Feb 8 02:52:59 2010 UTC
# Line 405  Line 405 
405    (setf (alien:extern-alien "internal_errors_enabled" boolean) t)    (setf (alien:extern-alien "internal_errors_enabled" boolean) t)
406    
407    (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))    (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))
408    
409      (setq intl::*default-domain* nil)
410    
411    ;; This is necessary because some of the initial top level forms might    ;; This is necessary because some of the initial top level forms might
412    ;; have changed the compilation policy in strange ways.    ;; have changed the compilation policy in strange ways.
413    (print-and-call c::proclaim-init)    (print-and-call c::proclaim-init)

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.79.12.1

  ViewVC Help
Powered by ViewVC 1.1.5