anchor.diff:                 (make-instance 'link-info
                    :id id :url url :title title)
                  (ignore? chunk) t)))))
  -  
     ;; now remove the unneeded chunks
     (iterate-elements 
      (chunks document) 
  
positive.code:         (was-blank? nil))
      (reset *parsing-environment*)
      (flet ((chunk-line (line)
               ; (format t "~%line: ~S" line)
               (setf (values line level) (maybe-strip-line line))
               
               ; (format t "~%~2D ~2D: ~S" level (size (strippers *parsing-environment*)) line)
               #+Ignore
               (format t "~%~A: ~A ~A ~A"
                       line
                       (some-element-p (line-coders (current-chunk-parser))
                                       (lambda (p) (funcall p line)))
  
negative.code:                (when current
                   (insert-item (lines current) line))
                 (setf old-level level))))
        (with-iterator (i source :treat-contents-as :lines
  			:skip-empty-chunks? nil)
          (iterate-elements
           i
           (lambda (line)
             (chunk-line line)))))
      ;; Grab last chunk if any
      (when current
        (setf (ended-by current) 'end-of-document)
        (insert-item (chunks result) current))
      (values result)))
  
  ;;; ---------------------------------------------------------------------------
  