Skip to content
Snippets Groups Projects
Commit c326ca8f authored by ram's avatar ram
Browse files

In %INITIAL-FUNCTION, added call to SET-FLOATING-POINT-MODES to enable

float exception trapping.
parent e72eb7be
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.16 1990/11/28 17:11:04 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.17 1990/12/11 18:08:55 ram Exp $
;;;
;;; Initialization stuff for CMU Common Lisp, plus some other random functions
;;; that we don't have any better place for.
......@@ -525,6 +525,8 @@
(print-and-call package-init)
(print-and-call kernel::signal-init)
(setf (alien-access (alien-value internal_errors_enabled)) t)
(set-floating-point-modes :traps '(:overflow :underflow :invalid
:divide-by-zero))
(%primitive print "Done initializing.")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment