- (progn ,@body)
- (unless (nicknames= ,n (package-nicknames ,p))
- ;; This probably didn't happen on purpose, and it's not clear anyway
- ;; what we should do when it did happen, so die noisily:
- (error "package nicknames changed within WITH-GIVEN-NICKNAMES: ~
- expected ~S, found ~S"
- ,n
- (package-nicknames ,p)))
- (rename-package-carefully ,p (package-name ,p) ,o)))))
+ (progn ,@body)
+ (unless (nicknames= ,n (package-nicknames ,p))
+ ;; This probably didn't happen on purpose, and it's not clear anyway
+ ;; what we should do when it did happen, so die noisily:
+ (error "package nicknames changed within WITH-GIVEN-NICKNAMES: ~
+ expected ~S, found ~S"
+ ,n
+ (package-nicknames ,p)))
+ (rename-package-carefully ,p (package-name ,p) ,o)))))