(defun close-rucksack (rucksack &key (commit t))
(when commit
(rucksack-commit rucksack))
;; If :COMMIT is true, the cache and transaction handler are already
;; committed by the rucksack-commit, so we close them without committing.
(close-cache (rucksack-cache rucksack) :commit nil))