Add SB-SYS:SAP-REF-LISPOBJ.

[sbcl.git] / src / compiler / ppc / sap.lisp

diff --git a/src/compiler/ppc/sap.lisp b/src/compiler/ppc/sap.lisp
index 3118559..f9e6504 100644 (file)
--- a/src/compiler/ppc/sap.lisp
+++ b/src/compiler/ppc/sap.lisp
@@ -241,6 +241,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