Function: BUILD-ASSOC-CALLBACK-MAKER

Source

(defun build-assoc-callback-maker (buf-writer buf-reader)
  (lambda (fun &optional name)
    (create-cbuffered-db-assoc-callback
     (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))))
     name)))