(defun update-secondary (db-and-callback key data txn) (multiple-value-call (lambda (use buf) (put-into-secondary (car db-and-callback) use buf key txn)) (funcall (cdr db-and-callback) (car db-and-callback) key data)) t)