anchor.diff:      (subseq line index)))
     
   
  -;;; ---------------------------------------------------------------------------
   ;;; canonize-document
  -;;; ---------------------------------------------------------------------------
   
   (defun canonize-document (document)
     (canonize-chunk-markup-class document))
  
positive.code: 		 (null (second (find (second line) *extensions* 
  				     :key 'first)))))))))
  
  ;;; ---------------------------------------------------------------------------
  ;;; dead code
  ;;; ---------------------------------------------------------------------------
  
  #+No
  ;; this one merges only adjencent pairs and screws that up too b/c it merges ignored things...
  
negative.code: 	       (setf (ended-by last) 'end-of-document)))))
      (values result)))
  
  ;;; post processors
  
  (defun handle-horizontal-rules (document)
    (iterate-elements
  