anchor.diff:                   (format t "&#x~A~C" buffer ch)
                    (setf state :normal)))))
          :finally (case state
  -                  ((:normal))
  -                  (otherwise (princ buffer)))))
  -
  -  ;; (let ((chunks (list string)))
  -  ;;   (DOLIST (SUBSTITUTION *ENTITIES*
  -  ;;            (apply (function concatenate) 'string chunks))
  -  ;;     (when (some (lambda (chunk) (search (car substitution) chunk
  -  ;;                                         :test (function string=))) chunks)
  -  ;;       (setf chunks
  -  ;;             (mapcan
  -  ;;              (lambda (chunk) 
  -  ;;                (do* ((start 0 (+ pos (length (car substitution))))
  -  ;;                      (pos (search (car substitution) chunk 
  -  ;;                                   :start2 start
  -  ;;                                   :test (function string=))
  -  ;;                           (search (car substitution) chunk 
  -  ;;                                   :start2 start
  -  ;;                                   :test (function string=)))
  -  ;;                      (result '()))
  -  ;;                     ((null pos)
  -  ;;                      (cond
  -  ;;                        ((= 0 start) 
  -  ;;                         (push chunk result))
  -  ;;                        ((< start (length chunk)) 
  -  ;;                         (push (displaced-vector chunk start) result)))
  -  ;;                      (nreverse result))
  -  ;;                  (when (< start pos)
  -  ;;                    (push (displaced-vector chunk start pos) result))
  -  ;;                  (push (cdr substitution) result)))
  -  ;;              chunks)))))
  -  )
  -
  -                                
  +                  ((:normal :space))
  +                  (otherwise (princ buffer))))))
  +
  +
  +
   
   (defmacro defentity (name code &optional documentation)
     `(progn
  
positive.code: to a string containing their corresponding characters.")
  
  
  
  (defun melt-entities (text)
    "
  RETURN: A string with any HTML ISO-Latin-1 entity occurence replaced by
          the corresponding character.
  BUG:    We don't manage the encodings, assuming that ISO-Latin-1 is active.
  "
    (with-output-to-string (*standard-output*)
      (loop
  
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.
  