(defmethod db-associate ((primary db-std) (secondary db-std) callback &key txn create) (bdb::db-associate primary secondary (if (cffi::pointerp callback) callback (create-assoc-callback callback)) :txn txn :create create))