-;;; Any other name SB!FOO refers to the package now called SB-FOO.
-(dolist (package (list-all-packages))
- (let ((name (package-name package))
- (nicknames (package-nicknames package))
- (warm-name-prefix "SB-")
- (cold-name-prefix "SB!"))
- (when (string= name warm-name-prefix :end1 (length warm-name-prefix))
- (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))))))
+ ;; Any other name SB!FOO refers to the package now called SB-FOO.
+ (dolist (package (list-all-packages))
+ (let ((name (package-name package))
+ (nicknames (package-nicknames package))
+ (warm-name-prefix "SB-")
+ (cold-name-prefix "SB!"))
+ (when (and (> (length name) (length warm-name-prefix))
+ (string= name warm-name-prefix
+ :end1 (length warm-name-prefix)))
+ (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)))
+ (sb-ext:unlock-package package)))))