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

diff --git a/debian/changelog b/debian/changelog
index a230390a9458e98438658b29d5d51f3b0fc5ee90..625cd30fd6c1afdeb5e43447e84ad7e4f3a60bb0 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+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

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))

diff --git a/src/functions.lisp b/src/functions.lisp
index 35f9f9837c5b8d5037253c53f16c744b105fe6c3..5552ffb67f5359084333b919c2a25a568d4ebca4 100644 (file)
--- a/src/functions.lisp
+++ b/src/functions.lisp
@@ -138,8 +138,6 @@
 
 
 (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)