anchor.diff:     'simple-associative-container
      :test #'equal
      :initial-contents 
  -   '((header1)    (nil "h1")
  -     (header2)    (nil "h2")
  -     (header3)    (nil "h3")
  -     (header4)    (nil "h4")
  -     (header5)    (nil "h5")
  -     (header6)    (nil "h6")
  +   '((header1)    (nil nil "h1")
  +     (header2)    (nil nil "h2")
  +     (header3)    (nil nil "h3")
  +     (header4)    (nil nil "h4")
  +     (header5)    (nil nil "h5")
  +     (header6)    (nil nil "h6")
        
  -     (bullet)     (("ul") "li")
  -     (code)       (("pre" "code") nil encode-pre)
  -     (number)     (("ol") "li")
  -     (quote)      (("blockquote") nil)
  -     (horizontal-rule) (nil "hr"))))
  +     (bullet)     (("ul") ("li") nil)
  +     (code)       (("pre" "code") nil nil encode-pre)
  +     (number)     (("ol") ("li") nil)
  +     (quote)      (("blockquote") nil nil)
  +     (horizontal-rule) (nil nil "hr"))))
   
   (defvar *magic-space-p* nil)
   
  
positive.code:   (format *output-stream* "<br />~%"))
  
  (defmethod render-to-html ((document document) encoding-method) 
    (labels ((do-it (chunks level)
               (loop for rest = chunks then (rest rest) 
                     for chunk = (first rest) then (first rest) 
                     while chunk 
                     for new-level = (level chunk)
                     for markup = (html-marker chunk) 
                     when (= level new-level) do 
  		  (render-to-html chunk encoding-method)
                     when (< level new-level) do
                     (dolist (marker markup)
                       (format *output-stream* "<~A>" marker))
                     (multiple-value-bind (block remaining method)
                                          (next-block rest new-level)
                       (declare (ignore method))
                       (do-it block new-level)
                       (setf rest remaining))
                     (dolist (marker (reverse markup))
                       (format *output-stream* "</~A>" marker))
                     #+(or)
                     (format *output-stream* "~%"))))
      (when (document-property "html")
        (generate-html-header))
      (do-it (collect-elements (chunks document)) 
             (level document))
      (when (document-property "html")
        (format *output-stream* "~&</body>~&</html>"))))
  
  (defvar *html-meta*
    '((name (author description copyright keywords date))
      (http-equiv (refresh expires))))
  
negative.code: 
  (defmethod render-to-html ((line string) encoding-method)
    (when *magic-space-p* 
      (setf *magic-space-p* nil)
      (princ #\Space *output-stream*))
    (when (> *magic-line-p* 0)
      (terpri *output-stream*))
  