modify to signal an error of TYPE-ERROR if STRING is not a string in SEMICOLON-TERMINATED-P function