anchor.diff:     (markup nil a)
      (properties (make-container 'alist-container
                                  :test #'string-equal) r)))
  -
  -;;; ---------------------------------------------------------------------------
   
   (defgeneric document-property (name &optional default)
     (:documentation "Returns the value of the property `name` of the `*current-document*` or the default if the property is not defined or there is no `*current-document*`."))
  
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)
  