anchor.diff:                                     :level level)
                            first? nil
                            (chunk-level *parsing-environment*) level)
  -                   
                      ;; if there is a new stripper, use it
                      (when stripper
                        (setf line (funcall stripper line)))
  -                   
                      (when (and (>= level old-level) stripper)
                        (insert-item (strippers *parsing-environment*) stripper)
                        ; (format t " -~2D-" (size (strippers *parsing-environment*)))
                        )))
  -               
                  (setf was-blank? (line-is-empty-p line))
  -               
                  (loop while (> (size (strippers *parsing-environment*)) level) do
                        ; (princ " -XX-")
                        (pop-item (strippers *parsing-environment*)))
  
positive.code:          (unless stripped?
             (return-from stripping))
           (incf levels))))
      
      (values line levels)))
  
  ;;; ---------------------------------------------------------------------------
  
negative.code:          (delete-first (lines p2))
           (when (empty-p (lines p2))
             (setf (ignore? p2) t))))))
    ;; parse links
    (iterate-elements
     (chunks document)
  