git » jacl.git » commit d5b6e65

diff --git a/boot.lisp b/boot.lisp
index b75cae7..bfab936 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -415,7 +415,7 @@
      (when (not (%> number (car more-numbers)))
        (setq ret nil)
        (go end))
-     (setq number (car more-numbers)
+     (setq number       (car more-numbers)
            more-numbers (cdr more-numbers))
      (when (not (numberp number))
        (%type-error "number"))
@@ -428,7 +428,7 @@
   (declare (jacl:rest-array))
   (let ((len (jacl:%dot nums |length|))
         (ret t)
-        (i 0))
+        (i   0))
     (tagbody
      start
      (when (not (numberp num))
@@ -440,7 +440,7 @@
          (setq ret nil)
          (go end))
        (setq num x
-             i (1+ i)))
+             i   (1+ i)))
      (go start)
      end)
     ret))
@@ -455,13 +455,13 @@
 
 (%export 'dolist)
 (defmacro dolist (binding &rest body)
-  (let ((var (car binding))
-        (list# (gensym "list"))
+  (let ((var         (car binding))
+        (list#       (gensym "list"))
         (result-form (caddr binding))
-        (begin# (gensym "begin"))
-        (end# (gensym "end")))
+        (begin#      (gensym "begin"))
+        (end#        (gensym "end")))
     `(block nil
-       (let ((,var nil)
+       (let ((,var   nil)
              (,list# ,(cadr binding)))
          (tagbody
           ,begin#
@@ -486,9 +486,9 @@
       (%type-error "number")))
   ;; TODO DO would be good here
   (let ((start1 (or start1 0))
-        (end1 (or end1 (1- (\. string1 |length|))))
+        (end1   (or end1 (1- (\. string1 |length|))))
         (start2 (or start2 0))
-        (end2 (or end2 (1- (\. string2 |length|)))))
+        (end2   (or end2 (1- (\. string2 |length|)))))
     (%js "for (let i = ~{}, j = ~{}; i < ~{} && j < ~{}; i++, j++) {
       if (~{}[i] !== ~{}[j]) return null;
     }" start1 start2 end1 end2 string1 string2)