anchor.diff:          (t (format *output-stream* "<~a>" (first codes))
              (apply #'encode-html stuff encoding-method (rest codes))
              (format *output-stream* "</~a>" (first codes))
  +	   #+(or)
              (unless (length-1-list-p codes) 
                (terpri *output-stream*)))))
  -
   
   ;;?? same code as above
   (defmethod encode-html ((stuff list) encoding-method &rest codes)
  
positive.code:         (t (format *output-stream* "<~A>" (first codes))
             (apply #'encode-html stuff encoding-method (rest codes))
             (format *output-stream* "</~A>" (first codes))
             (unless (length-1-list-p codes) 
               (terpri *output-stream*)))))
  
  (defmethod markup-class-for-html ((chunk chunk))
    (when (markup-class chunk)
      (let ((translation (item-at-1 *markup->html* (markup-class chunk))))
        (unless translation 
          (warn "No translation for '~A'" (markup-class chunk)))
        translation)))
  
  (defmethod render-to-html ((chunk list) encoding-method)
    (render-span-to-html (first chunk) (rest chunk) encoding-method))
  
negative.code:   (render-to-html document nil))
  
  (defun html-block-markup (chunk)
    (aand 
     (markup-class-for-html chunk)
     (markup-outer it)))
  
  (defun html-inner-block-markup (chunk)
    (aand
     (markup-class-for-html chunk)
     (markup-inner it)))
  
  (defmethod render-to-html ((chunk chunk) encoding-method)
    (bind (((:struct markup- (markup tag) 
  		   (new-method encoding-method) contentlessp)
  	  (markup-class-for-html chunk))
           (paragraph? (paragraph? chunk)))
      (cond (contentlessp
  