(defgeneric database-truncate (database)
(:method ((database t))
(signal-no-database-error database))
(:documentation "Remove all data from database."))
(defgeneric database-truncate (database)
(:method ((database t))
(signal-no-database-error database))
(:documentation "Remove all data from database."))