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

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv14168/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.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** clsql-uffi.lisp	16 May 2003 08:44:50 -0000	1.12
--- clsql-uffi.lisp	16 May 2003 08:51:00 -0000	1.13
***************
*** 192,196 ****
  	((= i len4))
        (declare (fixnum i))
!       (setf (aref str i) (uffi:deref-array s '(:array :unsigned-int) i))
        (incf i))
      #+ignore
--- 192,197 ----
  	((= i len4))
        (declare (fixnum i))
!       (setf (aref (the (simple-array (unsigned-byte 32) (*)) str) i)
! 	    (uffi:deref-array s '(:array :unsigned-int) i))
        (incf i))
      #+ignore