clsql/uffi clsql-uffi.lisp,1.2,1.3

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv12182/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.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** clsql-uffi.lisp	13 Dec 2002 12:21:54 -0000	1.2
--- clsql-uffi.lisp	29 Mar 2003 22:29:29 -0000	1.3
***************
*** 84,91 ****
--- 84,96 ----
    `(values (ash ,int64 -32) (logand ,int64 +2^32-1+)))
  
+ (defconstant +ascii-n-value+ (char-char #\N))
+ 
+ (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))
    (let ((char (uffi:ensure-char-character
  	       (uffi:deref-pointer char-ptr :char))))