Function: PUT-INTO-SECONDARY

Source

(defun put-into-secondary (db use key data txn)
  (unwind-protect
	 (when use
	   (db-put (db-handle db) key data :txn txn))
      (when key
	(free-cbuffer key))))
Source Context