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

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv27668/debian/src/clsql/uffi

Modified Files:
	clsql-uffi.lisp 
Log Message:


Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** clsql-uffi.lisp	8 Jun 2003 12:48:55 -0000	1.30
--- clsql-uffi.lisp	15 Jun 2003 13:50:24 -0000	1.31
***************
*** 93,98 ****
    ;; never be non-numeric
    (declare (type char-ptr-def char-ptr))
!   (char-equal #\N (uffi:ensure-char-character
! 		   (uffi:deref-pointer char-ptr :char))))
      
  (defun convert-raw-field (char-ptr types index)
--- 93,99 ----
    ;; 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)