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

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