+
+;; Methods for translating high-level table classes to low-level functions
+
+(defmethod database-list-attributes ((table sql-ident) database)
+ (database-list-attributes (string-downcase
+ (symbol-name (slot-value table 'name)))
+ database)
+ )
+
+(defmethod database-attribute-type (attribute (table sql-ident) database)
+ (database-attribute-type attribute (string-downcase
+ (symbol-name (slot-value table 'name)))
+ database))