)
(defgeneric get-slot-values-from-view (obj slotdeflist values)
)
-(defgeneric database-output-sql-as-type (type val database)
+(defgeneric database-output-sql-as-type (type val database db-type)
)
-(defgeneric read-sql-value (val type database)
+(defgeneric read-sql-value (val type database db-type)
)