projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
(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 (s
ap
len)
(declare (type sb-sys:system-area-pointer sap))
(locally
(declare (optimize (speed 3) (safety 0)))
(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 '(unsig
n
ed-byte 8))))
+ (sb-kernel:copy-from-system-area s
ap
0
result (* sb-vm:vector-data-offset
sb-vm:n-word-bits)
(* len sb-vm:n-byte-bits))
result)))
#+cmu
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 (s
ap len
)
(declare (type system:system-area-pointer sap))
(locally
(declare (optimize (speed 3) (safety 0)))
(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 '(unsig
n
ed-byte 8))))
+ (kernel:copy-from-system-area s
ap
0
result (* vm:vector-data-offset
vm:word-bits)
(* len vm:byte-bits))
result (* vm:vector-data-offset
vm:word-bits)
(* len vm:byte-bits))