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

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv2152/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.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** clsql-uffi.lisp	16 May 2003 09:16:25 -0000	1.15
--- clsql-uffi.lisp	16 May 2003 18:02:43 -0000	1.16
***************
*** 182,198 ****
   (:-ics
    (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)))
!     (declare (fixnum len)
! 	     (type (simple-array (unsigned-byte 8) (*)) str))
!     #+ignore
!     (do ((i 0))
! 	((= i len4))
!       (declare (fixnum i))
!       (setf (aref (the (simple-array (unsigned-byte 32) (*)) str) i)
! 	    (uffi:deref-array s '(:array :unsigned-int) i))
!       (incf i))
      (do ((i 0))
  	((= i len))
--- 182,213 ----
   (:-ics
    (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)))
!       (declare (fixnum len)
! 	       (type (simple-array (signed-byte 32) (*)) str))
!       (do ((i 0))
! 	  ((= i len4))
! 	(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)))
! 	  ((= i len))
! 	(declare (fixnum i))
! 	(setf (aref (the (simple-array (signed-byte 8) (*)) str) i)
! 	  (uffi:deref-array s '(:array :unsigned-char) i))
! 	(incf i))
!     str))
!   
!   #+ignore
!   (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)))
!       (declare (fixnum len)
! 	       (type (simple-array (unsigned-byte 8) (*)) str))
      (do ((i 0))
  	((= i len))