+cl-uffi (1.4.28-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Sat, 23 Oct 2004 09:05:50 -0600
+
cl-uffi (1.4.27-1) unstable; urgency=low
* New upstream
(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))
(defmacro def-function (names args &key module returning)
- #+(or cmu sbcl scl allegro mcl cormanlisp) (declare (ignore module))
-
(multiple-value-bind (lisp-args out processed)
(preprocess-args args)
(if (= (length out) 0)