anchor.diff:    (let* ((inline? (inline? tag))
            (paragraph? (paragraph? tag))
            (needs-close? (not (or (void? tag) (unmatched? tag))))
  +
            (fn-name
              (tag-fn tag :intern t))
            (newline-before-start
  
positive.code:            ,@(unsplice
                (when needs-close?
                  `(write-string ,close html)))
             (values))))))
  
  (defmacro define-all-tags ()
  
negative.code:            (not (or inline? paragraph?)))
           (newline-before-close
             newline-after-start)
           (newline-after-close
             paragraph?)
           (open (fmt "<~(~A~)" tag))
           (close (and needs-close? (fmt "</~(~A~)>" tag))))
      `(progn
  