anchor.diff:  
   ;;; The list semantics
   
  -(defvar *json-array-type* 'vector
  -  "The Lisp sequence type to which JSON arrays are to be coerced.")
  -
   (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
  
positive.code:    :beginning-of-array #'init-accumulator
     :array-element #'accumulator-add
     :end-of-array #'accumulator-get-sequence
     :beginning-of-object #'init-accumulator
     :object-key #'accumulator-add-key
     :object-value #'accumulator-add-value
  
negative.code:     "Designator for a function of no arguments (called at encountering
  a closing bracket for an array).")
  
  (define-custom-var (:array-type *json-array-type*) 'vector
    "The Lisp sequence type to which JSON arrays are to be coerced.")
  
  (define-custom-var (:beginning-of-object *beginning-of-object-handler*)
      (constantly t)
    "Designator for a function of no arguments (called at encountering
  