(defun transaction-start (&rest args &key (rucksack (current-rucksack)) &allow-other-keys) (apply #'transaction-start-1 (rucksack-cache rucksack) rucksack args))