X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Frename-package-carefully.lisp;h=797571b5d171b9840fae7e00997d736131c248d1;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=e1ce954da58e04728379e71a36970d14e4bb7cc3;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/cold/rename-package-carefully.lisp b/src/cold/rename-package-carefully.lisp
index e1ce954..797571b 100644
--- 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=)))