r10106: Automated commit for Debian build of uffi upstream-version-1.4.28

[uffi.git] / src / aggregates.lisp

diff --git a/src/aggregates.lisp b/src/aggregates.lisp
index 5fdc9081d430acc5e83ec570f01d3d99764d00f2..acfda5e48002c299759066eeb7c707410d292b63 100644 (file)
--- a/src/aggregates.lisp
+++ b/src/aggregates.lisp
@@ -225,24 +225,24 @@ of the enum-name name, separator-string, and field-name"
       (setf (aref a i) (uffi:deref-array s '(:array :unsigned-byte) i)))))
 
 #+sbcl
-(defun convert-from-foreign-usb8 (s len)
+(defun convert-from-foreign-usb8 (sap len)
   (declare (type sb-sys:system-area-pointer sap))
   (locally
       (declare (optimize (speed 3) (safety 0)))
-    (let ((result (make-array len :element-type '(unsiged-byte 8))))
-      (sb-kernel:copy-from-system-area s 0
+    (let ((result (make-array len :element-type '(unsigned-byte 8))))
+      (sb-kernel:copy-from-system-area sap 0
                                       result (* sb-vm:vector-data-offset
                                                 sb-vm:n-word-bits)
                                       (* len sb-vm:n-byte-bits))
       result)))
 
 #+cmu
-(defun convert-from-foreign-usb8 (s le)
+(defun convert-from-foreign-usb8 (sap len)
   (declare (type system:system-area-pointer sap))
   (locally
       (declare (optimize (speed 3) (safety 0)))
-    (let ((result (make-array len :element-type '(unsiged-byte 8))))
-      (kernel:copy-from-system-area s 0
+    (let ((result (make-array len :element-type '(unsigned-byte 8))))
+      (kernel:copy-from-system-area sap 0
                                    result (* vm:vector-data-offset
                                              vm:word-bits)
                                    (* len vm:byte-bits))