- (string
- (convert-to-db-default-case name database))
- (sql-ident
- (sql-output name database))
- (symbol
- (sql-output name database)))))
+ ;; honor case of strings
+ (string name
+ #+nil (convert-to-db-default-case name database))
+ (sql-ident (sql-output name database))
+ (symbol (sql-output name database)))))