(write-string " FROM " *sql-stream*)
(typecase from
(list (output-sql (apply #'vector from) database))
- (string (write-string
- (sql-escape
- (convert-to-db-default-case from database)) *sql-stream*))
+ (string (write-string from *sql-stream*))
(t (output-sql from database))))
(when inner-join
(write-string " INNER JOIN " *sql-stream*)