X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fsap.lisp;h=4ff8c12f56f0a64e895ea651f9aefa5d7350fa09;hb=711f75f20284c41f53485fda882fc7cc9e8e930f;hp=50daa83c9ecc31cc431ec0e399ba82743a39827a;hpb=6747fabc79fec1e5449bb01a75fcf49f0015b6a7;p=sbcl.git

diff --git a/src/compiler/x86/sap.lisp b/src/compiler/x86/sap.lisp
index 50daa83..4ff8c12 100644
--- a/src/compiler/x86/sap.lisp
+++ b/src/compiler/x86/sap.lisp
@@ -225,7 +225,9 @@
   (def-system-ref-and-set sb!c::signed-sap-ref-32-with-offset sb!c::%set-signed-sap-ref-32-with-offset
     signed-reg signed-num :dword t)
   (def-system-ref-and-set sb!c::sap-ref-sap-with-offset sb!c::%set-sap-ref-sap-with-offset
-    sap-reg system-area-pointer :dword))
+    sap-reg system-area-pointer :dword)
+  (def-system-ref-and-set sb!c::sap-ref-lispobj-with-offset sb!c::%set-sap-ref-lispobj-with-offset
+    descriptor-reg * :dword))
 
 ;;;; SAP-REF-DOUBLE