Method: (DB-OPEN-SEC DB-TXN)

Source

(defmethod db-open-sec ((db db-txn) &key txn)
  (let* ((handle (db-handle db))
	 (env (%db-get-env handle))
	 (dbp (bdb-create env 0)))
    (%%db-set-flags dbp (adjust-secondary-flags (%db-get-flags db)))
    (multiple-value-bind (db-file-name db-name)
	(db-dbname db)
      (%%db-open dbp
		 (if txn (txn-handle txn) (null-pointer))
		 (if (not db-file-name) (null-pointer) db-file-name)
		 (if (not db-name) (null-pointer) db-name)
		 (%db-get-type db)
		 (adjust-sec-open-flags (%db-open-flags db))
		 0)
      (setf (db-sec-handle db) dbp)
      db)))