projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
af96018
)
r5127: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 15 Jun 2003 13:50:24 +0000
(13:50 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 15 Jun 2003 13:50:24 +0000
(13:50 +0000)
uffi/clsql-uffi.lisp
patch
|
blob
|
history
diff --git
a/uffi/clsql-uffi.lisp
b/uffi/clsql-uffi.lisp
index aa62e6c993c27b3181c47f89effa75847acddedc..4093cfcb642285d0ff543fbb3cea400f6d23d854 100644
(file)
--- a/
uffi/clsql-uffi.lisp
+++ b/
uffi/clsql-uffi.lisp
@@
-7,7
+7,7
@@
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
;;;; Programmers: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;;;
-;;;; $Id: clsql-uffi.lisp,v 1.3
0 2003/06/08 12:48:55
kevin Exp $
+;;;; $Id: clsql-uffi.lisp,v 1.3
1 2003/06/15 13:50:24
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-92,8
+92,9
@@
;; Uses short cut and returns T if first character is #\N. It should
;; never be non-numeric
(declare (type char-ptr-def char-ptr))
;; Uses short cut and returns T if first character is #\N. It should
;; never be non-numeric
(declare (type char-ptr-def char-ptr))
- (char-equal #\N (uffi:ensure-char-character
- (uffi:deref-pointer char-ptr :char))))
+ (or (uffi:null-pointer-p char-ptr)
+ (char-equal #\N (uffi:ensure-char-character
+ (uffi:deref-pointer char-ptr :char)))))
(defun convert-raw-field (char-ptr types index)
(declare (optimize (speed 3) (safety 0) (space 0)))
(defun convert-raw-field (char-ptr types index)
(declare (optimize (speed 3) (safety 0) (space 0)))