: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))
(defmethod database-output-sql ((num number) database)
(declare (ignore database))
- (princ-to-string num))
+ (number-to-sql-string num))
(defmethod database-output-sql ((arg list) database)
(if (null arg)