(let* ((stem (subseq name (length cold-name-prefix)))
(cold-name (concatenate 'simple-string cold-name-prefix stem)))
(rename-package package name (cons cold-name nicknames))))))
(let* ((stem (subseq name (length cold-name-prefix)))
(cold-name (concatenate 'simple-string cold-name-prefix stem)))
(rename-package package name (cons cold-name nicknames))))))