From 24be2fb19ccbfb39ee2cfbc2ae3c49f4728c0dc5 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 23 Oct 2004 15:09:51 +0000
Subject: [PATCH] r10106: Automated commit for Debian build of uffi
 upstream-version-1.4.28

---
 debian/changelog    |  6 ++++++
 src/aggregates.lisp | 12 ++++++------
 src/functions.lisp  |  2 --
 3 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index a230390..625cd30 100644
--- 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 5fdc908..acfda5e 100644
--- 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 35f9f98..5552ffb 100644
--- 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)
-- 
2.34.1