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

Update of /pubcvs/clsql/uffi
In directory boa.b9.com:/tmp/cvs-serv12290/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.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** clsql-uffi.lisp	29 Mar 2003 22:29:29 -0000	1.3
--- clsql-uffi.lisp	29 Mar 2003 22:31:43 -0000	1.4
***************
*** 84,88 ****
    `(values (ash ,int64 -32) (logand ,int64 +2^32-1+)))
  
! (defconstant +ascii-n-value+ (char-char #\N))
  
  (uffi:def-type char-ptr-def (* :unsigned-char))
--- 84,89 ----
    `(values (ash ,int64 -32) (logand ,int64 +2^32-1+)))
  
! (defconstant +ascii-N-value+ (char-code #\N))
! (defconstant +ascii-U-value+ (char-code #\U))
  
  (uffi:def-type char-ptr-def (* :unsigned-char))