clsql/uffi clsql-uffi.lisp,1.10,1.11

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv13903/uffi

Modified Files:
	clsql-uffi.lisp 
Log Message:
Auto commit for Debian build

Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** clsql-uffi.lisp	16 May 2003 08:07:39 -0000	1.10
--- clsql-uffi.lisp	16 May 2003 08:41:47 -0000	1.11
***************
*** 185,195 ****
  	   (type char-ptr-def s))
    (let* ((len (strlen s))
  	 (str (make-string len)))
      (declare (fixnum len)
! 	     (type (simple-array (unsigned-byte 8) (*)) str))
      (do ((i 0))
! 	((= i len))
        (declare (fixnum i))
!       (setf (aref str i) (uffi:deref-array s '(:array :unsigned-char) i))
        (incf i))
      str))))
--- 185,202 ----
  	   (type char-ptr-def s))
    (let* ((len (strlen s))
+ 	 (len4 (floor len 4))
  	 (str (make-string len)))
      (declare (fixnum len)
! 	     (type (simple-array (unsigned-byte 32) (*)) str))
      (do ((i 0))
! 	((= i len4))
        (declare (fixnum i))
!       (setf (aref str i) (uffi:deref-array s '(:array :unsigned-int) i))
!       (incf i))
!     (do ((i (* 4 len4))
! 	 (str1 str))
! 	((= i len))
!       (declare (fixnum i) (type (simple-array (unsigned-byte 8) (*)) str1))
!       (setf (aref str1 i) (uffi:deref-array s '(:array :unsigned-char) i))
        (incf i))
      str))))