a baby step where angels fear to tread.. I'm still heading for a

[sbcl.git] / src / compiler / x86 / system.lisp

diff --git a/src/compiler/x86/system.lisp b/src/compiler/x86/system.lisp
index fb12e33..17d315b 100644 (file)
--- 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