Method: (DB-CURSOR-PUT EXT-CURSOR T T)

Source

(defmethod db-cursor-put ((cursor ext-cursor) key data &key
			  after before current
			  key-first key-last no-dup-data)
  (with-cbuffer key-buf
    (with-cbuffer data-buf
      (funcall (buf-writer cursor) key key-buf)
      (funcall (buf-writer cursor) data data-buf)
      (call-next-method cursor key data
		     :after after
		     :before before
		     :current current
		     :key-first key-first
		     :key-last key-last
		     :no-dup-data no-dup-data))))