(defun build-cbuffered-assoc-lambda (buf-writer buf-reader)
(lambda (fun)
(lambda (secondary key-buf data-buf)
(multiple-value-call (curry #'make-return-buffer buf-writer)
(funcall fun secondary
(funcall buf-reader key-buf)
(funcall buf-reader data-buf))))))Source Context