Method: (DB-PUT DB-TXN T T)

Documentation

callback returns a cbuffer, which will be freed by this put function

Source

(defmethod db-put ((db db-txn) key data &key
		   txn append no-dup-data no-overwrite)
  "callback returns a cbuffer, which will be freed by this put function"
  (let ((env (db-get-env db)))
    (with-txn (txn env :txn txn)
      (db-put (db-handle db) key data
	      :txn txn
	      :append append
	      :no-dup-data no-dup-data
	      :no-overwrite no-overwrite)
      (when-bind assoc (db-assoc db)
	(when (listp assoc)
	  (mapc (rcurry #'update-secondary key data txn) assoc)))
      t)))