(defun ext-update-secondary (db-and-callback key data key-buffer txn) (multiple-value-call (lambda (use ret) (multiple-value-call (lambda (use buf) (put-into-secondary (car db-and-callback) use buf key-buffer txn)) (make-return-buffer (buf-writer (car db-and-callback)) use ret))) (funcall (cdr db-and-callback) (car db-and-callback) key data)))Source Context