X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/4b53d23cef3d56dfa5c87bc290db159bec74baf9..4da88bb98b75edf5033fa864cae0d3d1c397ac07:/aa-tree.lisp

diff --git a/aa-tree.lisp b/aa-tree.lisp
index 3c60672..6c42746 100644
--- a/aa-tree.lisp
+++ b/aa-tree.lisp
@@ -307,12 +307,12 @@ (defmacro doaa ((key value tree &optional result) &body body)
       (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.