-(defmethod database-list-attributes (table (database mysql-database))
- (let* ((relname (etypecase table
- (clsql::sql-ident
- (string-downcase
- (symbol-name (slot-value table 'clsql::name))))
- (string table)))
- (result
- (mapcar #'car
- (database-query
- (format nil
- "SHOW COLUMNS FROM ~A" relname)
- database nil))))
- result)) ;; MySQL returns columns in reverse order defined