Return the base of CODING-SYSTEM. Any alias or subsidiary coding system is not a base coding system. (fn CODING-SYSTEM)