(string-equal (slot-value a 'alias)
(slot-value b 'alias))
t)
- (string-equal (symbol-name (slot-value a 'name))
- (symbol-name (slot-value b 'name))))))
+ (string-equal (sql-escape (slot-value a 'name))
+ (sql-escape (slot-value b 'name))))))
(typecase from
(list (output-sql (apply #'vector
(remove-duplicates from
:test #'ident-table-equal))
database))
(string (write-string from *sql-stream*))
- (t (output-sql from database)))))
+ (t (let ((*in-subselect* t))
+ (output-sql from database))))))
(when inner-join
(write-string " INNER JOIN " *sql-stream*)
(output-sql inner-join database))