X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fcell.lisp;h=96bd5b41bd1c5039b1538031f2e25b8d578abc7b;hb=fbe6e22af842835f7c70309f4d48064ca3984ad0;hp=336b5dc8d66635ba8d05f630e98966a9b0bf061c;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/x86/cell.lisp b/src/compiler/x86/cell.lisp
index 336b5dc..96bd5b4 100644
--- a/src/compiler/x86/cell.lisp
+++ b/src/compiler/x86/cell.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
- "$Header$")
 
 ;;;; data object ref/set stuff
 
@@ -43,7 +40,7 @@
 	       (inst mov
 		     (make-ea :dword :base object
 			      :disp (- (* offset word-bytes) lowtag))
-		     (+ *nil-value* (static-symbol-offset val))))
+		     (+ nil-value (static-symbol-offset val))))
 	      (character
 	       (inst mov
 		     (make-ea :dword :base object
@@ -140,7 +137,7 @@
   (:save-p :compute-only)
   (:generator 10
     (loadw value object fdefn-function-slot other-pointer-type)
-    (inst cmp value *nil-value*)
+    (inst cmp value nil-value)
     ;; FIXME: UNDEFINED-SYMBOL-ERROR seems to actually be for symbols with no
     ;; function value, not, as the name might suggest, symbols with no ordinary
     ;; value. Perhaps the name could be made more mnemonic?
@@ -175,7 +172,7 @@
   (:args (fdefn :scs (descriptor-reg) :target result))
   (:results (result :scs (descriptor-reg)))
   (:generator 38
-    (storew *nil-value* fdefn fdefn-function-slot other-pointer-type)
+    (storew nil-value fdefn fdefn-function-slot other-pointer-type)
     (storew (make-fixup (extern-alien-name "undefined_tramp") :foreign)
 	    fdefn fdefn-raw-addr-slot other-pointer-type)
     (move result fdefn)))