(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