X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=382d02d2353a4fcf91803a6333f858bad2978a4f;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=72d26fc7b8c54b29ce6d2ca113de5829e8e76772;hpb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 72d26fc..382d02d 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -212,6 +212,11 @@
 
   ;; FIXME: This list of modes should be defined in one place and
   ;; explicitly shared between here and REINIT.
+  ;;
+  ;; FIXME: In CMU CL, this is done "here" (i.e. in the analogous
+  ;; lispinit.lisp code) for every processor architecture. But Daniel
+  ;; Barlow's Alpha patches suppress it for Alpha. Why the difference?
+  #!+alpha
   (set-floating-point-modes :traps '(:overflow
 				     #!-x86 :underflow
 				     :invalid