anchor.diff:          (was-blank? nil))
       (reset *parsing-environment*)
       (flet ((chunk-line (line)
  -             ; (format t "~%line: ~S" 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)
  +             ;; (format t "~%~2D ~2D: ~S" level (size (strippers *parsing-environment*)) line)
                #+Ignore
  -             (format t "~%~A: ~A ~A ~A"
  +             (format t "~%~A: C: ~A; E: ~A; S: ~A"
                        line
                        (some-element-p (line-coders (current-chunk-parser))
                                        (lambda (p) (funcall p line)))
  
positive.code:                                    :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*)))
  
negative.code:          (unless stripped?
             (return-from stripping))
           (incf levels))))
      (values line levels)))
  
  ;;; ---------------------------------------------------------------------------
  