anchor.diff:      ("quot;" #\")
       ("nbsp;" #\Space)))
   
  -(defvar *convert-entites* t
  -  "When true we convert entites found in the data to their
  +(defvar *convert-entities* t
  +  "When true we convert entities found in the data to their
     corresponding chars, when false we leave ignore entities. NB:
     in the current implementation we are only able to convert a
     limited subset of all entities (see *entities* for the complete
  
positive.code:            #:node-attrs
             #:node-children
             #:make-node
             #:parse))
  
  (in-package :it.bese.yaclml.xmls)
  
  
negative.code: 
  (defun read-stream (stream)
    "Reads a character from the stream, translating entities as it
  goes (assuming *convert-entities* is non-NIL)."
    (let ((c (read-char stream nil)))
      (if (or (not (char= c #\&))
              (not *convert-entities*))
          c
          (loop with ent = (make-extendable-string 5)
             for char = (read-char stream)
  