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:               (with-json-value (key ,destination)
                  (write-json value ,destination))
                NIL))
         (declare (ignorable #'pair)
  		(inline pair)
  		(dynamic-extent #'pair))
         ,@body)))
  
  (defmacro with-json-value ((key &optional (destination '*json-output*)) &body body)
    `(progn
       (json-delimiter ,destination)
       (write-json ,key ,destination)
       (write-byte ,(char-code #\:) ,destination)
       ,@body))
  
  (defmacro with-json-output ((&optional stream) &body body)
  