projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1116104
)
made clsql emit double quoted table names
author
Russ Tyndall
<russ@acceleration.net>
Fri, 21 Aug 2009 20:30:40 +0000
(16:30 -0400)
committer
Russ Tyndall
<russ@acceleration.net>
Fri, 21 Aug 2009 20:30:40 +0000
(16:30 -0400)
sql/expressions.lisp
patch
|
blob
|
history
diff --git
a/sql/expressions.lisp
b/sql/expressions.lisp
index 16e967bee67d2a4f07e66f0a22a22955a6b275e0..80fffc5277f66d8c8673abc4f56d99d694032508 100644
(file)
--- a/
sql/expressions.lisp
+++ b/
sql/expressions.lisp
@@
-110,6
+110,7
@@
`(make-instance 'sql-ident :name ',name)))
(defmethod output-sql ((expr sql-ident) database)
`(make-instance 'sql-ident :name ',name)))
(defmethod output-sql ((expr sql-ident) database)
+
(with-slots (name) expr
(write-string
(etypecase name
(with-slots (name) expr
(write-string
(etypecase name
@@
-169,10
+170,10
@@
(when qualifier
(typecase qualifier
(string (format nil "~s" qualifier))
(when qualifier
(typecase qualifier
(string (format nil "~s" qualifier))
- (t (
sql-escape qualifier
))))
+ (t (
format nil "~s" (sql-escape qualifier)
))))
(typecase name
(string (format nil "~s" (sql-escape name)))
(typecase name
(string (format nil "~s" (sql-escape name)))
- (t (
sql-escape name
)))))
+ (t (
format nil "~s" (sql-escape name)
)))))
t))
(defmethod output-sql-hash-key ((expr sql-ident-attribute) database)
t))
(defmethod output-sql-hash-key ((expr sql-ident-attribute) database)