From 50e0a512247d82a6657675a67f5d3caf019a25bb Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 29 Mar 2003 22:31:43 +0000 Subject: [PATCH] r4294: Auto commit for Debian build --- uffi/clsql-uffi.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index 107aaeb..a74b75c 100644 --- a/uffi/clsql-uffi.lisp +++ b/uffi/clsql-uffi.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi.lisp,v 1.3 2003/03/29 22:29:29 kevin Exp $ +;;;; $Id: clsql-uffi.lisp,v 1.4 2003/03/29 22:31:43 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -83,7 +83,8 @@ (defmacro split-64-bit-integer (int64) `(values (ash ,int64 -32) (logand ,int64 +2^32-1+))) -(defconstant +ascii-n-value+ (char-char #\N)) +(defconstant +ascii-N-value+ (char-code #\N)) +(defconstant +ascii-U-value+ (char-code #\U)) (uffi:def-type char-ptr-def (* :unsigned-char)) -- 2.34.1