anchor.diff:  *JSON-ARRAY-TYPE*."
     (coerce (cdr *accumulator*) *json-array-type*))
   
  +(defun accumulator-get-string ()
  +  "Return all values accumulated so far in the list accumulator as
  +*JSON-ARRAY-TYPE*."
  +  (coerce (cdr *accumulator*) 'string))
  +
   (defun accumulator-get ()
     "Return all values accumulated so far in the list accumulator as a
   list."
     (cdr *accumulator*))
   
  +#| Invalidated.
  +
   (defun init-vector-accumulator ()
     "Initialize a vector accumulator."
     (setq *accumulator*
  
positive.code:   "Return all values accumulated so far in a vector accumulator as a
  string."
    (coerce *accumulator* 'string))
  
  (defun set-decoder-simple-list-semantics ()
    "Set the decoder semantics to the following:
  
negative.code:    :object-key #'accumulator-add-key
     :object-value #'accumulator-add-value
     :end-of-object #'accumulator-get
     :beginning-of-string #'init-accumulator
     :string-char #'accumulator-add
     :end-of-string #'accumulator-get-string
     :aggregate-scope (union *aggregate-scope-variables*
                             '(*accumulator* *accumulator-last*))
     :internal-decoder #'decode-json))
  