X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=260ae433a00cadf80f04e3e83f57a4bf5fb89f1c;hb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;hp=02bdfd96d61151e2256b54915f2154dd13e9cda4;hpb=ec6d4bd97d9adc6f4003747d8ca92fad7766ccfd;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 02bdfd9..260ae43 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -210,7 +210,7 @@
   ;; Barlow's Alpha patches suppress it for Alpha. Why the difference?
   #!+alpha
   (set-floating-point-modes :traps '(:overflow
-				     #!-x86 :underflow
+				     #!+alpha :underflow
 				     :invalid
 				     :divide-by-zero))
 
@@ -289,7 +289,7 @@ instead (which is another name for the same thing)."))
 				  ;; disabled by default. Joe User can
 				  ;; explicitly enable them if
 				  ;; desired.
-				  #!-x86 :underflow))
+				  #!+alpha :underflow))
       ;; Clear pseudo atomic in case this core wasn't compiled with
       ;; support.
       ;;