anchor.diff:  (defentity |amp|         38  "ampersand")
   (defentity |gt|          62  "greater than")
   (defentity |lt|          60  "less than")
  +(defentity |quot|        34  "double quote")
  +(defentity |apo|         39  "quote")
   
   
   ;; The meat:
  
positive.code:                           ((#\&)
                             (setf state :ampersand))
                            ((#\newline  #\space)
                             (princ " ")
                             (setf state :space))
                            (otherwise
                             (princ ch))))
               ((:space) (case ch
                           ((#\newline #\space))
                           ((#\&)
                            (setf state :ampersand))
                           (otherwise
  
negative.code: ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2015-10-22 <PJB> Added &quot; and &apo; Added *PRE* for MELT-ENTITIES.
  ;;;;    2010-10-16 <PJB> Renamed HTML-ENTITIES.
  ;;;;                     Added handling of numerical &#...; and &#x...; entities.
  ;;;;    2003-11-14 <PJB> Created.
  