fundamental.clj: factored out a piece of common code.