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