X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/0a198ceab8afb11ff5ce1ee614d22bc80970c187..0eed4749891adf0a7be89e786b8968ee805a8d41:/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 @@
       (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.