anchor.diff:                (with-json-entry (,destination)
                   (write-json value ,destination))
                 NIL))
  -       (declare (ignorable (function entry)))
  +       (declare (ignorable #'entry)
  +		(inline entry)
  +		(dynamic-extent #'entry))
          ,@body)))
   
   (defmacro with-json-entry ((&optional (destination '*json-output*)) &body body)
  
positive.code:        (format dest "~F" (coerce object 'double-float))))
      
      (string
       (write-char #\" dest)
       (loop for char across object
             for rep = (gethash char *string-replaces*)
             do (if rep
                    (write-string rep dest)
                    (write-char char dest)))
       (write-char #\" dest))
      
      (list
       (with-json-array (dest)
  
negative.code:     (T (write-json (princ-to-string object) dest)))
    object)
  
  (define-compiler-macro write-json (&whole whole object &optional (dest *json-output*)
  				   &environment env)
    (if (constantp object env)
        (let ((value (eval object)))
  	(typecase value
  	  (string
  	   (if (position-if (lambda (c) (gethash c *string-replaces*)) value)
  	       whole
  	       `(write-sequence ,(sb-ext:string-to-octets (format nil "\"~A\"" value)) ,dest)))
  	  (t
  	   whole)))
        whole))
  
  (defmacro with-delimiters ((destination left right) &body body)
    `(progn
       (let ((*started* NIL))
         (write-char ,left ,destination)
         ,@body)
       (write-char ,right ,destination)))
  
  (defmacro with-json-array ((&optional (destination '*json-output*)) &body body)
  