X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fnlx.lisp;h=abd9c623d142739ef9fcedfd8a416807d0ba8e38;hb=4d5a8689d1d303f65c2fa933bb8757063641a8f9;hp=30579c4b261faf66a1bfcd210a5bbc59ab73c3ec;hpb=8fa5c056f5e1898d2bc5688aaf35105d8de112c0;p=sbcl.git

diff --git a/src/compiler/x86-64/nlx.lisp b/src/compiler/x86-64/nlx.lisp
index 30579c4..abd9c62 100644
--- a/src/compiler/x86-64/nlx.lisp
+++ b/src/compiler/x86-64/nlx.lisp
@@ -63,7 +63,7 @@
 (define-vop (current-binding-pointer)
   (:results (res :scs (any-reg descriptor-reg)))
   (:generator 1
-    (load-tl-symbol-value res *binding-stack-pointer*)))
+    (load-binding-stack-pointer res)))
 
 ;;;; unwind block hackery