clsql/uffi clsql-uffi.lisp,1.18,1.19

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv2342/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.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** clsql-uffi.lisp	16 May 2003 18:07:37 -0000	1.18
--- clsql-uffi.lisp	16 May 2003 18:09:10 -0000	1.19
***************
*** 193,197 ****
  	(declare (fixnum i))
  	(setf (aref (the (simple-array (signed-byte 32) (*)) str) i)
! 	  (uffi:deref-array s '(:array :signed-int) i))
  	(incf i))
        (do ((i (* 4 len4)))
--- 193,197 ----
  	(declare (fixnum i))
  	(setf (aref (the (simple-array (signed-byte 32) (*)) str) i)
! 	  (uffi:deref-array s '(:array :int) i))
  	(incf i))
        (do ((i (* 4 len4)))