clsql/uffi clsql-uffi.lisp,1.13,1.14

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv14717/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.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** clsql-uffi.lisp	16 May 2003 08:51:00 -0000	1.13
--- clsql-uffi.lisp	16 May 2003 09:14:39 -0000	1.14
***************
*** 185,192 ****
  	   (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))
--- 185,192 ----
  	   (type char-ptr-def s))
    (let* ((len (strlen s))
  	 (str (make-string len)))
      (declare (fixnum len)
! 	     (type (simple-array (unsigned-byte 8) (*)) str))
!     #+ignore
      (do ((i 0))
  	((= i len4))
***************
*** 195,203 ****
  	    (uffi:deref-array s '(:array :unsigned-int) i))
        (incf i))
!     #+ignore
!     (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))
--- 195,201 ----
  	    (uffi:deref-array s '(:array :unsigned-int) i))
        (incf i))
!     (do ((i 0))
  	((= i len))
!       (declare (fixnum i))
        (setf (aref str1 i) (uffi:deref-array s '(:array :unsigned-char) i))
        (incf i))