anchor.diff:        (setf (chunk-split-priority-cache chunk)
               (funcall *chunk-split-priority* chunk))))
   
  -;;; The priority that a chunk must exceed in order to be considered for
  -;;; splitting.
  +;;; The minimum priority that a chunk must have in order to be considered
  +;;; for splitting.
  +(declaim (type (real 0 *) *chunk-split-min-priority*))
   (defvar *chunk-split-min-priority*)
   
   ;;; A real number that is the maximum permissible ratio of ghost points to
   ;;; interior points for a split.
  +(declaim (type (real 0 1) *chunk-split-max-redundancy*))
   (defvar *chunk-split-max-redundancy*)
   
   ;;; A vector for looking up each buffer's initial chunk.
  +(declaim (type simple-vector *buffer-chunk-vector*))
   (defvar *buffer-chunk-vector*)
   
   (defmacro buffer-chunk (buffer)
     `(svref *buffer-chunk-vector* (buffer-number ,buffer)))
   
   ;;; A vector for looking up each buffer's ghostspec.
  +(declaim (type simple-vector *buffer-ghostspec-vector*))
   (defvar *buffer-ghostspec-vector*)
   
   (defun buffer-ghostspec (buffer)
  
positive.code: (defmethod print-object ((chunk chunk) stream)
    (format stream "~@<#<~;~S ~_~@{~S ~:_~S~^ ~_~}~;>~:>"
            (class-name (class-of chunk))
            :buffer (chunk-buffer chunk)
            :shape (chunk-shape chunk)
            :split (chunk-split chunk)))
  
  (defun chunk-bits (chunk)
  
negative.code:               (compute-buffer-ghostspec buffer)))))
  
  ;;; A list of splits that have yet to be propagated to nearby chunks.
  (declaim (type list *unpropagated-splits*))
  (defvar *unpropagated-splits*)
  
  ;;; A priority queue of chunks that have yet to be considered for being
  