From fcc62f5d5e41be500b36e545962be922d636ddd3 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 29 Mar 2003 22:29:29 +0000 Subject: [PATCH 1/1] r4293: Auto commit for Debian build --- debian/changelog | 6 ++++++ uffi/clsql-uffi.lisp | 7 ++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index 5a2db40..ef1be06 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (1.4.2-1) unstable; urgency=low + + * Add optimization for pointer derefering + + -- Kevin M. Rosenberg Sat, 29 Mar 2003 15:28:57 -0700 + cl-sql (1.4.1-1) unstable; urgency=low * Fix typo in clsql-mysql diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index f50682f..107aaeb 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.2 2002/12/13 12:21:54 kevin Exp $ +;;;; $Id: clsql-uffi.lisp,v 1.3 2003/03/29 22:29:29 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -83,10 +83,15 @@ (defmacro split-64-bit-integer (int64) `(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)))) (eql char #\N))) -- 2.34.1