anchor.diff:     (properties (make-container 'alist-container
                                  :test #'string-equal) r)))
   
  -;;; ---------------------------------------------------------------------------
  -
   (defmethod initialize-instance :after ((object chunk) &key lines)
     (when lines
       (iterate-elements lines (lambda (line) (insert-item (lines object) line)))))
  -
  -;;; ---------------------------------------------------------------------------
   
   (defmethod print-object ((chunk chunk) stream)
     (print-unreadable-object (chunk stream :type t)
  
positive.code:             (started-by chunk)
              (ended-by chunk))))
  
  ;;; ---------------------------------------------------------------------------
  
  (defclass* chunk-parsing-environment ()
    ((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)
  
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)
  