anchor.diff:     :beginning-of-array #'init-accumulator
      :array-element #'accumulator-add
      :end-of-array #'accumulator-get-sequence
  +   :array-type 'list
      :beginning-of-object #'init-accumulator
      :object-key #'accumulator-add-key
      :object-value #'accumulator-add-value
  
positive.code:     "Designator for a function of no arguments (called at encountering
  a closing bracket for an array).")
  
  (define-custom-var (:beginning-of-object *beginning-of-object-handler*)
      (constantly t)
    "Designator for a function of no arguments (called at encountering
  
negative.code: 
  ;;; The list semantics
  
  (defun parse-number (token)
    "Take a number token and convert it to a numeric value."
    ;; We can be reasonably sure that nothing but well-formed (both in
  