X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86%2Fpred.lisp;h=fcfe65f0878dddbc7a3bad3ae8e1454f07063504;hb=dec94b039e8ec90baf21463df839a6181de606f6;hp=975a9a2f8ddb1475ab589e1adc37b0f00079c97c;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/x86/pred.lisp b/src/compiler/x86/pred.lisp
index 975a9a2..fcfe65f 100644
--- a/src/compiler/x86/pred.lisp
+++ b/src/compiler/x86/pred.lisp
@@ -10,9 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!VM")
-
-(file-comment
- "$Header$")
 
 ;;;; the branch VOP
 
@@ -50,7 +47,7 @@
 	       (inst test x x) ; smaller
 	     (inst cmp x (fixnumize val))))
 	  (symbol
-	   (inst cmp x (+ *nil-value* (static-symbol-offset val))))
+	   (inst cmp x (+ nil-value (static-symbol-offset val))))
 	  (character
 	   (inst cmp x (logior (ash (char-code val) type-bits)
 			       base-char-type))))))
@@ -63,7 +60,7 @@
 	       (inst test y y) ; smaller
 	     (inst cmp y (fixnumize val))))
 	  (symbol
-	   (inst cmp y (+ *nil-value* (static-symbol-offset val))))
+	   (inst cmp y (+ nil-value (static-symbol-offset val))))
 	  (character
 	   (inst cmp y (logior (ash (char-code val) type-bits)
 			       base-char-type))))))