anchor.diff:  list."
     (cdr *accumulator*))
   
  -#| Invalidated.
  -
  -(defun init-vector-accumulator ()
  -  "Initialize a vector accumulator."
  -  (setq *accumulator*
  -        (make-array 32 :adjustable t :fill-pointer 0)))
  -
  -(defun vector-accumulator-add (element)
  -  "Add ELEMENT to the end of the vector accumulator."
  -  (vector-push-extend element *accumulator* (fill-pointer *accumulator*))
  +(defun init-string-stream-accumulator ()
  +  "Initialize a string-stream accumulator."
  +  (setq *accumulator* (make-string-output-stream)))
  +
  +(defun string-stream-accumulator-add (char)
  +  "Add CHAR to the end of the string-stream accumulator."
  +  (write-char char *accumulator*)
     *accumulator*)
   
  -(defun vector-accumulator-get-sequence ()
  -  "Return all values accumulated so far in a vector accumulator as
  -*JSON-ARRAY-TYPE*."
  -  (coerce *accumulator* *json-array-type*))
  -
  -(defun vector-accumulator-get-string ()
  -  "Return all values accumulated so far in a vector accumulator as a
  -string."
  -  (coerce *accumulator* 'string))
  -
  -|#
  +(defun string-stream-accumulator-get ()
  +  "Return all characters accumulated so far in a string-stream
  +accumulator and close the stream."
  +  (prog1 (get-output-stream-string *accumulator*)
  +    (close *accumulator*)))
   
   (defun set-decoder-simple-list-semantics ()
     "Set the decoder semantics to the following:
  
positive.code: is encountered which is greater than the application's CHAR-CODE-LIMIT
  or for which CODE-CHAR returns NIL."))
  
  (defun read-json-string-char (stream)
    "Read a JSON String char (or escape sequence) from the STREAM and
  return it.  If an end of string (unescaped quote) is encountered,
  
negative.code:    :object-key #'accumulator-add-key
     :object-value #'accumulator-add-value
     :end-of-object #'accumulator-get
     :beginning-of-string #'init-string-stream-accumulator
     :string-char #'string-stream-accumulator-add
     :end-of-string #'string-stream-accumulator-get
     :aggregate-scope (union *aggregate-scope-variables*
                             '(*accumulator* *accumulator-last*))
     :internal-decoder #'decode-json))
  