X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fparms.lisp;h=a9b972718656d11a49bd291183f21cf5c49263e9;hb=bc46c8bcdd6ac8918df8ea9e9db49808e4924fcf;hp=852d4d52eb5b21e3fa40542ddbb917ee171ab301;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index 852d4d5..a9b9727 100644
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -165,14 +165,14 @@
   (defconstant binding-stack-end     #x3ffff000)
 
   (defconstant control-stack-start
-    #+freebsd #x40000000
-    #+openbsd #x48000000)
+    #!+freebsd #x40000000
+    #!+openbsd #x48000000)
   (defconstant control-stack-end
-    #+freebsd #x47fff000
-    #+openbsd #x4ffff000)
+    #!+freebsd #x47fff000
+    #!+openbsd #x4ffff000)
   (defconstant dynamic-space-start
-    #+freebsd #x48000000
-    #+openbsd #x50000000)
+    #!+freebsd #x48000000
+    #!+openbsd #x50000000)
   (defconstant dynamic-space-end     #x88000000))
 
 ;;; Given that NIL is the first thing allocated in static space, we
@@ -204,8 +204,8 @@
 (defenum (:prefix trace-table-)
   normal
   call-site
-  function-prologue
-  function-epilogue)
+  fun-prologue
+  fun-epilogue)
 
 ;;;; static symbols
 
@@ -251,7 +251,6 @@
     ;; things needed for non-local exit
     *current-catch-block*
     *current-unwind-protect-block*
-    *eval-stack-top*
     *alien-stack*
 
     ;; interrupt handling
@@ -268,8 +267,8 @@
     ;; the floating point constants
     *fp-constant-0d0*
     *fp-constant-1d0*
-    *fp-constant-0s0*
-    *fp-constant-1s0*
+    *fp-constant-0f0*
+    *fp-constant-1f0*
     ;; The following are all long-floats.
     *fp-constant-0l0*
     *fp-constant-1l0*
@@ -287,7 +286,7 @@
     ;; the ordinary unbound marker for this.
     sb!pcl::..slot-unbound..))
 
-(defparameter *static-functions*
+(defparameter *static-funs*
   '(length
     sb!kernel:two-arg-+
     sb!kernel:two-arg--