X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fmips%2Fsap.lisp;h=c6f37a25dbac2aabb684f298774768029ad89e3e;hb=4aa0cca4568e48e15cb717ecd5993f0a020d42c5;hp=cdc5453bcfb37f3ea4244835811e932a23bc994e;hpb=6747fabc79fec1e5449bb01a75fcf49f0015b6a7;p=sbcl.git

diff --git a/src/compiler/mips/sap.lisp b/src/compiler/mips/sap.lisp
index cdc5453..c6f37a2 100644
--- a/src/compiler/mips/sap.lisp
+++ b/src/compiler/mips/sap.lisp
@@ -301,6 +301,8 @@
     signed-reg signed-num :long t)
   (def-system-ref-and-set sap-ref-sap %set-sap-ref-sap
     sap-reg system-area-pointer :long)
+  (def-system-ref-and-set sap-ref-lispobj %set-sap-ref-lispobj
+    descriptor-reg * :long)
   (def-system-ref-and-set sap-ref-single %set-sap-ref-single
     single-reg single-float :single)
   (def-system-ref-and-set sap-ref-double %set-sap-ref-double