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

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv14792/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.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** clsql-uffi.lisp	16 May 2003 09:14:39 -0000	1.14
--- clsql-uffi.lisp	16 May 2003 09:16:25 -0000	1.15
***************
*** 198,202 ****
  	((= i len))
        (declare (fixnum i))
!       (setf (aref str1 i) (uffi:deref-array s '(:array :unsigned-char) i))
        (incf i))
      str))))
--- 198,202 ----
  	((= i len))
        (declare (fixnum i))
!       (setf (aref str i) (uffi:deref-array s '(:array :unsigned-char) i))
        (incf i))
      str))))