projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9756: add tinyint type
[clsql.git]
/
sql
/
fdml.lisp
diff --git
a/sql/fdml.lisp
b/sql/fdml.lisp
index ee9a37db3ea0a343eb0b1ba33e8fbe49b8a4a955..470ad37d195b7f2df46feea74ca724b2ee54f3a4 100644
(file)
--- a/
sql/fdml.lisp
+++ b/
sql/fdml.lisp
@@
-200,7
+200,7
@@
are nil and AV-PAIRS is an alist of (attribute value) pairs."
(type (simple-array * (*)) str))
(let ((len (length str)))
(declare (type fixnum len))
(type (simple-array * (*)) str))
(let ((len (length str)))
(declare (type fixnum len))
- (cond ((
= len 0
)
+ (cond ((
zerop len
)
+empty-string+)
((and (null (position #\' str))
(null (position #\\ str)))
+empty-string+)
((and (null (position #\' str))
(null (position #\\ str)))
@@
-210,13
+210,14
@@
are nil and AV-PAIRS is an alist of (attribute value) pairs."
(do* ((i 0 (incf i))
(j 1 (incf j)))
((= i len) (subseq buf 0 (1+ j)))
(do* ((i 0 (incf i))
(j 1 (incf j)))
((= i len) (subseq buf 0 (1+ j)))
- (declare (type
integer
i j))
+ (declare (type
fixnum
i j))
(let ((char (aref str i)))
(let ((char (aref str i)))
- (cond ((eql char #\')
- (setf (aref buf j) #\\)
+ (declare (character char))
+ (cond ((char= char #\')
+ (setf (aref buf j) #\')
(incf j)
(setf (aref buf j) #\'))
(incf j)
(setf (aref buf j) #\'))
- ((
eql
char #\\)
+ ((
char=
char #\\)
(setf (aref buf j) #\\)
(incf j)
(setf (aref buf j) #\\))
(setf (aref buf j) #\\)
(incf j)
(setf (aref buf j) #\\))