projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11018: 12 Aug 2006 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
sql
/
expressions.lisp
diff --git
a/sql/expressions.lisp
b/sql/expressions.lisp
index 57afac1b391084aaf658ec4d3511d6573ceaeb2e..cd1a6d397bc9a2665bf0472a80d5d14aa563e602 100644
(file)
--- a/
sql/expressions.lisp
+++ b/
sql/expressions.lisp
@@
-589,8
+589,8
@@
uninclusive, and the args from that keyword to the end."
(string-equal (slot-value a 'alias)
(slot-value b 'alias))
t)
(string-equal (slot-value a 'alias)
(slot-value b 'alias))
t)
- (string-equal (s
ymbol-nam
e (slot-value a 'name))
- (s
ymbol-nam
e (slot-value b 'name))))))
+ (string-equal (s
ql-escap
e (slot-value a 'name))
+ (s
ql-escap
e (slot-value b 'name))))))
(typecase from
(list (output-sql (apply #'vector
(remove-duplicates from
(typecase from
(list (output-sql (apply #'vector
(remove-duplicates from