anchor.diff:              (started-by chunk)
               (ended-by chunk))))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defclass* chunk-parsing-environment ()
  -  ((chunk-enders nil ia)
  + ((name nil ir)
  +   (chunk-enders nil ia)
      (chunk-starters nil ia)
      (line-coders nil ia)
      (parser-map nil ia)))
  -
  -;;; ---------------------------------------------------------------------------
   
   (defclass* parsing-environment ()
     ((chunk-parsing-environment (make-container 'stack-container) r)
  
positive.code:    (line-code->stripper (make-container 'simple-associative-container) r)
     (strippers (make-container 'stack-container) r)))
                   
  ;;; ---------------------------------------------------------------------------
  
  (defun current-chunk-parser ()
    (first-item (chunk-parsing-environment *parsing-environment*)))
  
  ;;; ---------------------------------------------------------------------------
  
  (defclass* link-info ()
    ((url nil ir)
  
negative.code: 		  (string (intern name (find-package :keyword)))
  		  (symbol (form-property-name (symbol-name name)))
  		  (t name))))
  
  (defclass* chunk ()
    ((lines (make-container 'vector-container) r)
  