;;; RENAME-PACKAGE in two steps in order to avoid the possibility of undefined
;;; behavior when one of the new names is the same as one of the old names.
;;; (ANSI on RENAME-PACKAGE: "The consequences are undefined if new-name or any
;;; new-nickname conflicts with any existing package names.")
(defun rename-package-carefully (package-designator
;;; RENAME-PACKAGE in two steps in order to avoid the possibility of undefined
;;; behavior when one of the new names is the same as one of the old names.
;;; (ANSI on RENAME-PACKAGE: "The consequences are undefined if new-name or any
;;; new-nickname conflicts with any existing package names.")
(defun rename-package-carefully (package-designator