(typecase from
(list (output-sql (apply #'vector
(remove-duplicates from
:test #'ident-table-equal))
database))
(string (write-string from *sql-stream*))
(typecase from
(list (output-sql (apply #'vector
(remove-duplicates from
:test #'ident-table-equal))
database))
(string (write-string from *sql-stream*))