(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.