(defmethod cache-rollback ((cache standard-cache))
;; Roll back by rolling back all transactions and removing
;; all objects from the cache, so they'll be reloaded
;; from disk the next time.
(map-transactions cache #'transaction-rollback)
(clrhash (objects cache))
(queue-clear (queue cache))
;; DO: Reverse the schema table to its previous state?
)
Source Context