Method: (TRANSACTION-START-1 STANDARD-CACHE STANDARD-RUCKSACK)

Source

(defmethod transaction-start-1 ((cache standard-cache)
                                (rucksack standard-rucksack)
                                &key &allow-other-keys)
  ;; Create new transaction.
  (let* ((id (incf (highest-transaction-id rucksack)))
         (transaction (make-instance 'standard-transaction :id id)))
    ;; Add to open transactions.
    (open-transaction cache transaction)
    ;; And return the new transaction.
    transaction))