0.9.2.7:

[sbcl.git] / src / code / cross-sap.lisp

diff --git a/src/code/cross-sap.lisp b/src/code/cross-sap.lisp
index fc0d0a0..574adeb 100644 (file)
--- a/src/code/cross-sap.lisp
+++ b/src/code/cross-sap.lisp
@@ -46,7 +46,7 @@
                   (defun ,name (sap offset)
                     (declare (ignore sap offset))
                     (sap-ref-stub ',name))
-                  ,@(let ((setter-stub (gensym "SAP-SETTER-STUB-")))
+                  ,@(let ((setter-stub (gensym "SETTER-STUB-")))
                       `((defun ,setter-stub (foo sap offset)
                           (declare (ignore foo sap offset))
                           (sap-ref-stub '(setf ,name)))
@@ -54,9 +54,13 @@
               '(sap-ref-8
                 sap-ref-16
                 sap-ref-32
+                sap-ref-64
                 sap-ref-sap
+                sap-ref-word
                 sap-ref-single
                 sap-ref-double
                 signed-sap-ref-8
                 signed-sap-ref-16
-                signed-sap-ref-32)))
+                signed-sap-ref-32
+                signed-sap-ref-64
+                signed-sap-ref-word)))