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

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 22330f4..382d02d 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -90,7 +90,6 @@
   ;; !UNIX-COLD-INIT. And *TYPE-SYSTEM-INITIALIZED* could be changed to
   ;; *TYPE-SYSTEM-INITIALIZED-WHEN-BOUND* so that it doesn't need to
   ;; be explicitly set in order to be meaningful.
-  (setf *gc-verbose* nil)
   (setf *gc-notify-stream* nil)
   (setf *before-gc-hooks* nil)
   (setf *after-gc-hooks* nil)
@@ -213,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