X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-alieneval.lisp;h=e7d50542a468e2d29505fa92948f71f6abcf2983;hb=aa61c7571b33b86981301f34d3acdb66666f53a3;hp=baf1b7905095169fca6d4b5245065651f45065cc;hpb=545fa4548b327804cf78afe38a2ecd94ced86162;p=sbcl.git

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index baf1b79..e7d5054 100644
--- 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)))))))
 
 ;;;; 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))))
 
 ;;;; accessing heap alien variables
@@ -516,7 +516,7 @@
 	(values (ceiling bits
 			 (ecase units
 			   (:bits 1)
-			   (:bytes sb!vm:byte-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)))))
@@ -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))