Method: (TRANSACTION-TOUCH-OBJECT STANDARD-TRANSACTION T T)

Source

(defmethod transaction-touch-object ((transaction standard-transaction)
                                     object
                                     object-id)
  (setf (gethash object-id (dirty-objects transaction)) object)
  (queue-add (dirty-queue transaction) object-id))