Fix make-array transforms.

[sbcl.git] / src / cold / rename-package-carefully.lisp

diff --git a/src/cold/rename-package-carefully.lisp b/src/cold/rename-package-carefully.lisp
index e1ce954..797571b 100644 (file)
--- a/src/cold/rename-package-carefully.lisp
+++ b/src/cold/rename-package-carefully.lisp
@@ -9,17 +9,15 @@
 
 (in-package "SB-COLD")
 
-;;;; $Header$
-
 ;;; 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
-                                new-name
-                                &optional new-nicknames)
+                                 new-name
+                                 &optional new-nicknames)
   (let ((package (find-package package-designator))
-       (unused-name "UNUSED-PACKAGE-NAME"))
+        (unused-name "UNUSED-PACKAGE-NAME"))
     (assert (not (find-package unused-name)))
     (assert (not (string= unused-name new-name)))
     (assert (not (find unused-name new-nicknames :test #'string=)))