X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fdebug.lisp;h=998b06e91f8526bce3c07ee798cb467286f526b9;hb=4719b7d5d66c5930d3efd6a6d8e7572b16809f8d;hp=5e663f748efab06f86ddc29f8bef5a4d73c351f8;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/x86/debug.lisp b/src/compiler/x86/debug.lisp
index 5e663f7..998b06e 100644
--- a/src/compiler/x86/debug.lisp
+++ b/src/compiler/x86/debug.lisp
@@ -11,9 +11,6 @@
 
 (in-package "SB!VM")
 
-(file-comment
- "$Header$")
-
 (define-vop (debug-cur-sp)
   (:translate current-sp)
   (:policy :fast-safe)
@@ -112,7 +109,7 @@
       (emit-label done)
       (assemble (*elsewhere*)
 	(emit-label bogus)
-	(inst mov code *nil-value*)
+	(inst mov code nil-value)
 	(inst jmp done)))))
 
 (define-vop (code-from-lra code-from-mumble)