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

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