projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Changes regarding standard_conforming_strings in postgres
[clsql.git]
/
sql
/
expressions.lisp
diff --git
a/sql/expressions.lisp
b/sql/expressions.lisp
index 4f0baf1230b0ab32353dc69026645306adae11e0..1b3b1a486ca2f42ab44f586b4b358d5d7275c9e0 100644
(file)
--- a/
sql/expressions.lisp
+++ b/
sql/expressions.lisp
@@
-420,13
+420,13
@@
(defmethod output-sql ((expr sql-assignment-exp) database)
(with-slots (operator sub-expressions)
(defmethod output-sql ((expr sql-assignment-exp) database)
(with-slots (operator sub-expressions)
- expr
- (do ((sub sub-expressions (cdr sub)))
- ((null (cdr sub)) (output-sql (car sub) database))
- (output-sql (car sub) database)
+ expr
+ (output-sql (car sub-expressions) database)
+ (dolist (sub (cdr sub-expressions))
(write-char #\Space *sql-stream*)
(%write-operator operator database)
(write-char #\Space *sql-stream*)
(%write-operator operator database)
- (write-char #\Space *sql-stream*)))
+ (write-char #\Space *sql-stream*)
+ (output-sql sub database)))
t)
(defclass sql-value-exp (%sql-expression)
t)
(defclass sql-value-exp (%sql-expression)
@@
-1009,9
+1009,7
@@
uninclusive, and the args from that keyword to the end."
(setf (aref buf j) #\'))
((and (char= char #\\)
;; MTP: only escape backslash with pgsql/mysql
(setf (aref buf j) #\'))
((and (char= char #\\)
;; MTP: only escape backslash with pgsql/mysql
- (member (database-underlying-type database)
- '(:postgresql :mysql)
- :test #'eq))
+ (database-escape-backslashes database))
(setf (aref buf j) #\\)
(incf j)
(setf (aref buf j) #\\))
(setf (aref buf j) #\\)
(incf j)
(setf (aref buf j) #\\))