X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fsystem.lisp;h=17d315bbce78e4042cfa59bca73abf06a74d08d4;hb=adf0d51d2bde8b723276bacf94641df9aa5ae561;hp=fb12e336b98549a669b5fea565cabbe58318bfdc;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp
index fb12e33..17d315b 100644
--- a/src/compiler/x86/system.lisp
+++ b/src/compiler/x86/system.lisp
@@ -316,7 +316,7 @@
   (:temporary (:sc unsigned-reg :from (:eval 0) :to (:eval 1)) temp)
   (:save-p t)
   (:generator 25
-    (inst cmp inherit *nil-value*)
+    (inst cmp inherit nil-value)
     (inst jmp :e FRESH-STACK)
 
     ;; Child inherits the stack of the parent.
@@ -385,7 +385,7 @@
 
     RETURN
     ;; Stack already clean if it reaches here. Parent returns NIL.
-    (inst mov child *nil-value*)
+    (inst mov child nil-value)
     (inst jmp-short DONE)
 
     STACK-SAVE-DONE