X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprimordial-extensions.lisp;h=7b10afdfd33e75b6240210b46a95c7b4d1a960c7;hb=cd13034f9415f64cdaa05893a4ac5ff1e95c97bd;hp=48be86dc0072c7ab1495a49ca0929fb71b953400;hpb=ce18bcfe50994889a5e3245cacd8702b5a0ced89;p=sbcl.git

diff --git a/src/code/primordial-extensions.lisp b/src/code/primordial-extensions.lisp
index 48be86d..7b10afd 100644
--- a/src/code/primordial-extensions.lisp
+++ b/src/code/primordial-extensions.lisp
@@ -168,21 +168,27 @@
 (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
   (defun symbolicate (&rest things)
     (let ((name (case (length things)
-		  ;; why isn't this just the value in the T branch?
+		  ;; Why isn't this just the value in the T branch?
 		  ;; Well, this is called early in cold-init, before
 		  ;; the type system is set up; however, now that we
 		  ;; check for bad lengths, the type system is needed
 		  ;; for calls to CONCATENATE. So we need to make sure
 		  ;; that the calls are transformed away:
 		  (1 (concatenate 'string
-				  (the simple-base-string (string (car things)))))
+				  (the simple-base-string
+				    (string (car things)))))
 		  (2 (concatenate 'string 
-				  (the simple-base-string (string (car things)))
-				  (the simple-base-string (string (cadr things)))))
+				  (the simple-base-string
+				    (string (car things)))
+				  (the simple-base-string
+				    (string (cadr things)))))
 		  (3 (concatenate 'string
-				  (the simple-base-string (string (car things)))
-				  (the simple-base-string (string (cadr things)))
-				  (the simple-base-string (string (caddr things)))))
+				  (the simple-base-string
+				    (string (car things)))
+				  (the simple-base-string
+				    (string (cadr things)))
+				  (the simple-base-string
+				    (string (caddr things)))))
 		  (t (apply #'concatenate 'string (mapcar #'string things))))))
     (values (intern name)))))