Add SB-SYS:SAP-REF-LISPOBJ.

[sbcl.git] / src / compiler / x86-64 / sap.lisp

diff --git a/src/compiler/x86-64/sap.lisp b/src/compiler/x86-64/sap.lisp
index b255b07..e086659 100644 (file)
--- 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))
 \f
 ;;;; SAP-REF-DOUBLE