anchor.diff:           (apply #'encode-html stuff (rest codes)))
           (t (format *output-stream* "<~A>" (first codes))
              (apply #'encode-html stuff (rest codes))
  -           (format *output-stream* "</~A>" (first codes))))
  -  (format *output-stream* "~&"))
  +           (format *output-stream* "</~A>" (first codes))
  +           (unless (length-1-list-p codes) 
  +             (terpri *output-stream*)))))
   
   ;;; ---------------------------------------------------------------------------
   
  
positive.code:                      (format *output-stream* "</~A>" marker))
                     #+(or)
                     (format *output-stream* "~%"))))
      (do-it (collect-elements (chunks document)) 
             (level document))))
      
negative.code: ;;; ---------------------------------------------------------------------------
  
  (defmethod render ((document document) (style (eql :html)) stream)
    (render-to-html document))
  
  ;;; ---------------------------------------------------------------------------
  
  (defgeneric render-to-html (stuff)
    (:documentation ""))
  
  ;;; ---------------------------------------------------------------------------
  
  