anchor.diff:           (incf levels))))
       (values line levels)))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defun chunk-source (source)
     (let* ((result (make-container 'document))
  -        (current nil)
  -        (current-code nil)
  -        (level 0)
  -        (old-level level)
  -        (first? 'start-of-document)
  -        (was-blank? nil))
  +	 (current nil)
  +	 (current-code nil)
  +	 (level 0)
  +	 (old-level level)
  +	 (first? 'start-of-document)
  +	 (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: C: ~A; E: ~A; S: ~A"
  -                     line
  +	     #+(or)
  +	     (format t "~%~S (~2D ~2D C: ~A; E: ~A; S: ~A)"
  +		     line level (size (strippers *parsing-environment*))
                        (some-element-p (line-coders (current-chunk-parser))
                                        (lambda (p) (funcall p line)))
                        (some-element-p (chunk-enders (current-chunk-parser)) 
  
positive.code:                  :id id :url url :title title)
                 (ignore? chunk) t)))))
    ;; now remove the unneeded chunks
    (iterate-elements 
     (chunks document) 
     (lambda (chunk)
       (when (ignore? chunk) (delete-item (chunks document) chunk))))
    document)
  
  ;;; ---------------------------------------------------------------------------
  
negative.code:          'handle-blockquotes
           'handle-setext-headers
           'handle-atx-headers
           'merge-chunks-in-document
           'merge-lines-in-chunks
           'canonize-document))
    (empty! (line-code->stripper env))
    (empty! (strippers env))
  