0.pre7.86.flaky7.27:

[sbcl.git] / src / code / target-alieneval.lisp

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index 935cf7f..e7d5054 100644 (file)
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
@@ -325,7 +325,7 @@
        (let* ((field (slot-or-lose type slot))
              (offset (alien-record-field-offset field))
              (field-type (alien-record-field-type field)))
-        (%sap-alien (sap+ (alien-sap alien) (/ offset sb!vm:byte-bits))
+        (%sap-alien (sap+ (alien-sap alien) (/ offset sb!vm:n-byte-bits))
                     (make-alien-pointer-type :to field-type)))))))
 \f
 ;;;; the DEREF operator
@@ -399,7 +399,7 @@
           (type list indices)
           (optimize (inhibit-warnings 3)))
   (multiple-value-bind (target-type offset) (deref-guts alien indices)
-    (%sap-alien (sap+ (alien-value-sap alien) (/ offset sb!vm:byte-bits))
+    (%sap-alien (sap+ (alien-value-sap alien) (/ offset sb!vm:n-byte-bits))
                (make-alien-pointer-type :to target-type))))
 \f
 ;;;; accessing heap alien variables
@@ -516,8 +516,8 @@
        (values (ceiling bits
                         (ecase units
                           (:bits 1)
-                          (:bytes sb!vm:byte-bits)
-                          (:words sb!vm:word-bits))))
+                          (:bytes sb!vm:n-byte-bits)
+                          (:words sb!vm:n-word-bits))))
        (error "unknown size for alien type ~S"
               (unparse-alien-type alien-type)))))
 \f
@@ -653,7 +653,7 @@
         ;; anyway, and (2) such a declamation can be (especially for
         ;; alien values) both messy to do by hand and very important
         ;; for performance of later code which uses the return value.
-        (declaim (ftype (function (mapcar (constantly t) ',args)
+        (declaim (ftype (function ,(mapcar (constantly t) args)
                                   (alien ,result-type))
                         ,lisp-name))