(defmethod open-transaction ((cache standard-cache) transaction) ;; Add to open transactions. (setf (gethash (transaction-id transaction) (transactions cache)) transaction))