X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftoplevel.lisp;h=381a2b2d0bc0b88ec5b25088e2094e688101c294;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=53889d8959e88019e657655c4c661d4254887a14;hpb=5edd74f6911093805a009a152b32216b3dba59f7;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index 53889d8..381a2b2 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -13,14 +13,6 @@
 
 (in-package "SB!IMPL")
 
-(defconstant most-positive-fixnum #.sb!vm:*target-most-positive-fixnum*
-  #!+sb-doc
-  "the fixnum closest in value to positive infinity")
-
-(defconstant most-negative-fixnum #.sb!vm:*target-most-negative-fixnum*
-  #!+sb-doc
-  "the fixnum closest in value to negative infinity")
-
 ;;;; magic specials initialized by GENESIS
 
 ;;; FIXME: The DEFVAR here is redundant with the (DECLAIM (SPECIAL ..))
@@ -171,7 +163,7 @@
   (declare (optimize (speed 3) (safety 0))
 	   (values (unsigned-byte 20))) ; FIXME: DECLARE VALUES?
 
-  #!-x86 ; machines where stack grows upwards (I guess) -- WHN 19990906
+  #!-stack-grows-downward-not-upward
   (labels
       ((scrub (ptr offset count)
          (declare (type system-area-pointer ptr)
@@ -201,7 +193,7 @@
 	     (* (floor initial-offset sb!vm:n-word-bytes) sb!vm:n-word-bytes)
 	     0)))
 
-  #!+x86 ;; (Stack grows downwards.)
+  #!+stack-grows-downward-not-upward
   (labels
       ((scrub (ptr offset count)
 	 (declare (type system-area-pointer ptr)
@@ -485,7 +477,7 @@
 	   (abort
 	    "Reduce debugger level (leaving debugger, returning to toplevel).")
 	 (catch 'toplevel-catcher
-	   (sb!unix:unix-sigsetmask 0)	; FIXME: What is this for?
+	   #!-sunos (sb!unix:unix-sigsetmask 0)	; FIXME: What is this for?
 	   (repl noprint)
 	   (critically-unreachable "after REPL")))))))