clsql/uffi clsql-uffi.lisp,1.16,1.17

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv2221/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.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** clsql-uffi.lisp	16 May 2003 18:02:43 -0000	1.16
--- clsql-uffi.lisp	16 May 2003 18:05:23 -0000	1.17
***************
*** 185,188 ****
--- 185,189 ----
  	     (type char-ptr-def s))
      (let* ((len (strlen s))
+ 	   (len4 (float len 4))
  	   (str (make-string len)))
        (declare (fixnum len)