Function: BUILD-CURSOR-PUT-FUNCTION

Source

(defun build-cursor-put-function (write-fn)
  (lambda (cursor key data &key
	   after before current
	   key-first key-last no-dup-data)
    (with-cbuffer key-buf
      (with-cbuffer data-buf
	(funcall write-fn key key-buf)
	(funcall write-fn data data-buf)
	(db-cursor-put cursor key data
		       :after after
		       :before before
		       :current current
		       :key-first key-first
		       :key-last key-last
		       :no-dup-data no-dup-data)))))