anchor.diff:      (atom   (princ element))
       (otherwise
        (flet ((write-it ()
  -              (let ((entry (gethash (html-tag element) *nl*)))
  +              (let ((entry (gethash (element-tag element) *nl*)))
                   (if (second entry)
                       (funcall (second entry) element)
                       (progn
  
positive.code: DO:                 Parse the HTML stream STREAM.
  VERBOSE:            When true, writes some information in the *TRACE-OUTPUT*.
  RETURN:             A list of html elements.
  SEE ALSO:           HTML-TAG, HTML-ATTRIBUTES, HTML-PATTRIBUTE, HTML-CONTENTS.
  "
    (let ((name (or (ignore-errors (namestring stream))
                    (princ-to-string stream)))
  
negative.code:                       (princ element)
                        (when (intersection '(:bc :ac) (first entry))
                          (terpri)))))))
         (cond ((member (element-tag element) '(:foreign :definition :comment)
                        :test (function string-equal))
                #|ignore|#)
               ((member (element-tag element) '(:pre :quote :address)
                        :test (function string-equal))
                (let ((*pre* t))
                  (write-it)))
  