anchor.diff:                           (if i i ""))
                          body))
       (labels ((html-format (&rest rest)
  -                          "This is our local format."
  +                          "This is our local formatter."
                             (setf result (strcat result
                                                  (apply #'format nil rest)))))
         (setf tag (to-string tag))
  
positive.code:                  (not (tag-must-close? tag)))
          (html-format "/"))
        (html-format ">")
        (when (multiline-tag? tag)
          (html-format "~%"))
        (when body
          (mapcar (lambda (line)
                    (html-format (escape-tildes line)))
                  body))
        (when (or body (tag-must-close? tag))
          (when (multiline-tag? tag)
            (html-format "~%"))
          (html-format "</~A>" tag))
        (when (or (multiline-tag? tag)
                  (newline-tag? tag))
          (html-format "~%"))
        result)))
  
  (defun html-comment (&rest rest)
    "This generates and HTML style inline comment.  Usually you don't want to
    even really use this, you should just be using normal Lisp comments in your
    code, but hey, do what you want."
    (apply #'strcat (append '("<!-- ") (mapcar #'to-string rest) '(" -->"))))
  
  (function-alias 'html-comment '!--)
  
negative.code:                                  (to-string (second arg)))))
                    (setf arg (to-string arg))))
                args)
        (when (and body (or (multiline-tag? tag)
                            (newline-tag? tag)))
          (html-format "~%"))
        (html-format "<~A" tag)
        (when args
  