X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86-64%2Fsap.lisp;h=e086659b9b13ee7727663f09610695bb34922980;hb=b2ed34b667665e52609cf431c00179b136be450d;hp=b255b0780db3a663b5219c9795192d872d991f28;hpb=7be799a096f8be64365dfd5b566f667f9ea0314a;p=sbcl.git

diff --git a/src/compiler/x86-64/sap.lisp b/src/compiler/x86-64/sap.lisp
index b255b07..e086659 100644
--- a/src/compiler/x86-64/sap.lisp
+++ b/src/compiler/x86-64/sap.lisp
@@ -233,7 +233,9 @@
   (def-system-ref-and-set signed-sap-ref-64 %set-signed-sap-ref-64 mov
     signed-reg signed-num :qword)
   (def-system-ref-and-set sap-ref-sap %set-sap-ref-sap mov
-    sap-reg system-area-pointer :qword))
+    sap-reg system-area-pointer :qword)
+  (def-system-ref-and-set sap-ref-lispobj %set-sap-ref-lispobj mov
+    descriptor-reg * :qword))
 
 ;;;; SAP-REF-DOUBLE