Whitespace cleanups across the board.

[lisp] / aa-tree.lisp

diff --git a/aa-tree.lisp b/aa-tree.lisp
index 3c60672..6c42746 100644 (file)
--- a/aa-tree.lisp
+++ b/aa-tree.lisp
@@ -307,12 +307,12 @@
       (unless key (setf key (gensym "KEY")) (push key ignores))
       (unless value (setf value (gensym "VALUE")) (push value ignores))
       `(block nil
-         (mapaa (lambda (,key ,value)
+        (mapaa (lambda (,key ,value)
                  ,@decls
                  ,@(and ignores `((declare (ignore ,@ignores))))
                  (tagbody ,@body))
-               ,tree)
-         ,result))))
+               ,tree)
+        ,result))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Testing.