anchor.diff:      `(define-macro ,name xml-macro (&whole ,form &body ,all)
          (declare (ignore ,all))
          (multiple-value-bind (,tag ,attributes ,tag-body) (parse-cons-form ,form)
  -	 (declare (ignore ,tag))
  -	 (destructuring-bind (,@parameters) ,tag-body
  -	   ,@body)))))
  +         (declare (ignore ,tag))
  +         (destructuring-bind (,@parameters) ,tag-body
  +           ,@body)))))
   
   (defun parse-xml-macro-lambda-list (args)
     (let ((attr-cons (member '&attributes args)))
  
positive.code:   (environment-value 'in-attribute env))
  
  (defun block-element-p (tag env) 
    (find tag (environment-value 'block-elements env)))
  
  (defun paragraph-element-p (tag env) 
    (find tag (environment-value 'paragraph-elements env)))
  
negative.code:   (raw-string processor (format nil "<~a" (funcall (name-converter language) tag)))
    (emit-attributes language processor attributes environment)
    (raw-string processor
                (if (or body-p (non-empty-element-p tag environment)) ">" "/>")))
  
  (defmethod emit-attributes ((language xml) processor attributes environment)
    (loop for (k v) on attributes by #'cddr do
  