anchor.diff:  (defun json-delimiter (&optional (dest *json-output*))
     (declare (optimize speed) (type stream dest))
     (if *started*
  -      (write-char #\, dest)
  +      (write-byte (char-code #\,) dest)
         (setf *started* T)))
   
   (defun json-null (&optional (dest *json-output*))
  
positive.code: 
  (defun json-false (&optional (dest *json-output*))
    (declare (optimize speed) (type stream dest))
    (write-string "false" dest))
  
  (defun json-true (&optional (dest *json-output*))
    (declare (optimize speed) (type stream dest))
    (write-string "true" dest))
  
  (defun write-json (object &optional (dest *json-output*))
    (declare (optimize speed) (type stream dest))
    (typecase object
      (integer
       (princ object dest))
  
negative.code:        (format dest "~F" (coerce object 'double-float))))
      
      (string
       (write-byte (char-code #\") dest)
       (loop with start = 0 while start
  	  with rep = nil
  	  for end = (position-if (lambda (c) (setf rep (gethash c *string-replaces*)))
  				 object :start start)
  	do
  	  (write-sequence (sb-ext:string-to-octets object :start start :end end) dest)
  	  (when end
  	    (write-string (string rep) dest)
  	    (incf end))
  	  (setf start end))
       (write-byte (char-code #\") dest))
      
      (list
       (with-json-array (dest)
  