X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=39f662cc8f287d2a74e4fc31e896f0e5f7d6de95;hb=4dc4761909992ceb346d003f3fb19e5c837ee985;hp=b501208c2af06b8c17aa32ddac0f9cf4b26157a7;hpb=929fde778f2e5a422f9bcd8ad5f6dcf1dbfccf15;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index b501208..39f662c 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -649,8 +649,8 @@ error if any of PACKAGES is not a valid package designator."
   ;; We just simple-stringify the name and call INTERN*, where the real
   ;; logic is.
   (let ((name (if (simple-string-p name)
-		name
-		(coerce name 'simple-string)))
+		  name
+		  (coerce name 'simple-string)))
 	(package (find-undeleted-package-or-lose package)))
     (declare (simple-string name))
       (intern* name