anchor.diff:               (t
                 (setf result (append result (list gatherer) (list line)))
                 (setf gatherer "")))))
  -    
       (when gatherer
         (setf result (append result (list gatherer))))
       result))
  
positive.code:          (unless stripped?
             (return-from stripping))
           (incf levels))))
      
      (values line levels)))
  
  ;;; ---------------------------------------------------------------------------
  
negative.code:                                      (lambda (p) (funcall p line)))
                       (some-element-p (chunk-starters (current-chunk-parser))
                                       (lambda (p) (funcall p line))))
               (let ((code (some-element-p (line-coders (current-chunk-parser))
                                           (lambda (p) (funcall p line)))))
                 ;; End current chunk?
  