(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)))))Source Context