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

diff --git a/src/cold/rename-package-carefully.lisp b/src/cold/rename-package-carefully.lisp
index 158572a..797571b 100644
--- a/src/cold/rename-package-carefully.lisp
+++ b/src/cold/rename-package-carefully.lisp
@@ -14,10 +14,10 @@
 ;;; (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=)))