- (string= boot-prefix old-package-name
- :end2 (length boot-prefix)))
- (let ((new-package-name (concatenate 'string
- perm-prefix
- (subseq old-package-name
- (length boot-prefix)))))
- (rename-package package
- new-package-name
- (package-nicknames package)))))))
+ (string= boot-prefix old-package-name
+ :end2 (length boot-prefix)))
+ (let ((new-package-name (concatenate 'string
+ perm-prefix
+ (subseq old-package-name
+ (length boot-prefix)))))
+ (rename-package package
+ new-package-name
+ (package-nicknames package)))))))