0.8.7.52:

[sbcl.git] / src / code / primordial-extensions.lisp

diff --git a/src/code/primordial-extensions.lisp b/src/code/primordial-extensions.lisp
index a70b2c2..7b10afd 100644 (file)
--- a/src/code/primordial-extensions.lisp
+++ b/src/code/primordial-extensions.lisp
@@ -104,13 +104,13 @@
           (,bind ,(nreverse r-inits)
                  ,@decls
                  (tagbody
-                  (go ,label-2)
-                  ,label-1
-                  ,@code
-                  (,step ,@(nreverse r-steps))
-                  ,label-2
-                  (unless ,(first endlist) (go ,label-1))
-                  (return-from ,block (progn ,@(rest endlist))))))))))
+                     (go ,label-2)
+                     ,label-1
+                     (tagbody ,@code)
+                     (,step ,@(nreverse r-steps))
+                     ,label-2
+                     (unless ,(first endlist) (go ,label-1))
+                     (return-from ,block (progn ,@(rest endlist))))))))))
 
 ;;; This is like DO, except it has no implicit NIL block. Each VAR is
 ;;; initialized in parallel to the value of the specified INIT form.
@@ -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)))))