clsql/uffi clsql-uffi.lisp,1.6,1.7

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv29777/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.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** clsql-uffi.lisp	15 May 2003 07:33:21 -0000	1.6
--- clsql-uffi.lisp	15 May 2003 07:39:42 -0000	1.7
***************
*** 131,135 ****
  
  (defun native-to-string (s)
!   (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0)))
    (let* ((len (strlen s))
  	 (str (make-string len)))
--- 131,136 ----
  
  (defun native-to-string (s)
!   (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0))
! 	   (type char-ptr-def s))
    (let* ((len (strlen s))
  	 (str (make-string len)))