(defmethod transaction-start-1 :before ((cache standard-cache)
(rucksack serial-transaction-rucksack)
&key &allow-other-keys)
(process-lock (rucksack-transaction-lock rucksack)))
Source Context