Function: BUILD-PUT-FUNCTION

Source

(defun build-put-function (write-fn)
  (lambda (db key data &key txn append no-dup-data no-overwrite)
    (with-cbuffer key-buffer
      (with-cbuffer data-buffer
	(funcall write-fn key key-buffer)
	(funcall write-fn data data-buffer)
	(db-put db key-buffer data-buffer
		:txn txn
		:append append
		:no-dup-data no-dup-data
		:no-overwrite no-overwrite)))))