clsql/uffi clsql-uffi.lisp,1.31,1.32

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv31650/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.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** clsql-uffi.lisp	15 Jun 2003 13:50:24 -0000	1.31
--- clsql-uffi.lisp	23 Jun 2003 19:25:30 -0000	1.32
***************
*** 88,109 ****
  (uffi:def-type char-ptr-def (* :unsigned-char))
  
- (defun char-ptr-points-to-null (char-ptr)
-   "Returns T if foreign character pointer refers to 'NULL' string. Only called for numeric entries"
-   ;; Uses short cut and returns T if first character is #\N. It should
-   ;; never be non-numeric
-   (declare (type char-ptr-def char-ptr))
-   (or (uffi:null-pointer-p char-ptr) 
-       (char-equal #\N (uffi:ensure-char-character
- 		       (uffi:deref-pointer char-ptr :char)))))
-     
  (defun convert-raw-field (char-ptr types index)
!   (declare (optimize (speed 3) (safety 0) (space 0)))
    (let ((type (if (listp types)
  		  (nth index types)
  		  types)))
      (cond
!       ((and (or (eq type :double) (eq type :int32) (eq type :int)
! 		(eq type :int64))
! 	    (char-ptr-points-to-null char-ptr))
         nil)
        (t
--- 88,99 ----
  (uffi:def-type char-ptr-def (* :unsigned-char))
  
  (defun convert-raw-field (char-ptr types index)
!   (declare (optimize (speed 3) (safety 0) (space 0))
! 	   (type char-ptr-def char-ptr))
    (let ((type (if (listp types)
  		  (nth index types)
  		  types)))
      (cond
!       ((uffi:null-pointer-p char-ptr)
         nil)
        (t