summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
c3e3e19)
* sql/expressions.lisp: Avoid using simple-string declaration when
a non-simple string may be encountered. [issue noted by
will@cesmail.net] Add a simple-string declaration for a local
string generated.
+11 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
+ * sql/expressions.lisp: Avoid using simple-string declaration when
+ a non-simple string may be encountered. [issue noted by
+ will@cesmail.net] Add a simple-string declaration for a local
+ string generated.
+
06 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
* sql/oodml.lisp: Change db-writer and db-reader processing to accept
a symbol as well as function to serve as a function designator
06 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
* sql/oodml.lisp: Change db-writer and db-reader processing to accept
a symbol as well as function to serve as a function designator
(defmethod database-output-sql ((str string) database)
(declare (optimize (speed 3) (safety 1)
(defmethod database-output-sql ((str string) database)
(declare (optimize (speed 3) (safety 1)
- #+cmu (extensions:inhibit-warnings 3))
- (simple-string str))
+ #+cmu (extensions:inhibit-warnings 3)))
(let ((len (length str)))
(declare (type fixnum len))
(cond ((zerop len)
(let ((len (length str)))
(declare (type fixnum len))
(cond ((zerop len)
(concatenate 'string "'" str "'"))
(t
(let ((buf (make-string (+ (* len 2) 2) :initial-element #\')))
(concatenate 'string "'" str "'"))
(t
(let ((buf (make-string (+ (* len 2) 2) :initial-element #\')))
+ (declare (simple-string buf))
+ (do* ((i 0 (incf i))
(j 1 (incf j)))
((= i len) (subseq buf 0 (1+ j)))
(declare (type fixnum i j))
(j 1 (incf j)))
((= i len) (subseq buf 0 (1+ j)))
(declare (type fixnum i j))