I presume that CL standardized on a base as a default, though? Otherwise you have an appropriately recursive problem that every base is "base-10" in that base.

edit: (setf read-base (+ 1 1 1 1 1 1 1 1 1 1)) :)