CMUCL commit: amd64-dd-branch src/code (lispinit.lisp)

[Raymond Toy]

    Date: Tuesday, November 3, 2009 @ 23:12:30
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: amd64-dd-branch

Modified: lispinit.lisp

Disable floating point traps for now.


---------------+
 lispinit.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/lispinit.lisp
diff -u src/code/lispinit.lisp:1.79 src/code/lispinit.lisp:1.79.10.1
--- src/code/lispinit.lisp:1.79	Thu Jun 11 12:03:58 2009
+++ src/code/lispinit.lisp	Tue Nov  3 23:12:30 2009
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/lispinit.lisp,v 1.79 2009-06-11 16:03:58 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/lispinit.lisp,v 1.79.10.1 2009-11-04 04:12:30 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -404,7 +404,7 @@
   (print-and-call kernel::signal-init)
   (setf (alien:extern-alien "internal_errors_enabled" boolean) t)
 
-  (set-floating-point-modes :traps '(:overflow :invalid :divide-by-zero))
+  (set-floating-point-modes :traps #+amd64 nil #-amd64 '(:overflow :invalid :divide-by-zero))
   ;; This is necessary because some of the initial top level forms might
   ;; have changed the compilation policy in strange ways.
   (print-and-call c::proclaim-init)