anchor.diff:    (render-to-html document nil))
   
   (defun html-block-markup (chunk)
  -  (first (markup-class-for-html chunk)))
  +  (aand 
  +   (markup-class-for-html chunk)
  +   (markup-outer it)))
   
   (defun html-inner-block-markup (chunk)
  -  (second (markup-class-for-html chunk)))
  +  (aand
  +   (markup-class-for-html chunk)
  +   (markup-inner it)))
   
   (defmethod render-to-html ((chunk chunk) encoding-method)
  -  (bind (((&optional nil nil markup new-method contentlessp)
  +  (bind (((:struct markup- (markup tag) 
  +		   (new-method encoding-method) contentlessp)
   	  (markup-class-for-html chunk))
            (paragraph? (paragraph? chunk)))
       (cond (contentlessp
  
positive.code: 	  (t
  	   (encode-html chunk (or new-method encoding-method)
  			markup (when paragraph? "p"))))))
    
  ;;?? same code as below
  (defmethod encode-html ((stuff chunk) encoding-method &rest codes)
    (declare (dynamic-extent codes))
  
negative.code:         (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)
  