clsql/uffi clsql-uffi.lisp,1.26,1.27

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

Modified Files:
	clsql-uffi.lisp 
Log Message:


Index: clsql-uffi.lisp
===================================================================
RCS file: /pubcvs/clsql/uffi/clsql-uffi.lisp,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** clsql-uffi.lisp	22 May 2003 15:47:02 -0000	1.26
--- clsql-uffi.lisp	27 May 2003 21:40:16 -0000	1.27
***************
*** 96,100 ****
    (let ((char (uffi:ensure-char-character
  	       (uffi:deref-pointer char-ptr :char))))
!     (eql char #\N)))
      
  (defun convert-raw-field (char-ptr types index)
--- 96,100 ----
    (let ((char (uffi:ensure-char-character
  	       (uffi:deref-pointer char-ptr :char))))
!     (char-equal char #\N)))
      
  (defun convert-raw-field (char-ptr types index)