anchor.diff:  
   (defun to-json (object)
     (to-json-internal *json-library* object))
  -
  -(defun to-json-string (object)
  -  (to-json-string-internal *json-library* (to-json object)))
   
   (defun json-null ()
     (json-library-null *json-library*))
  
positive.code:                 object)
      (apply #'st-json:jso (nreverse fields))))
  
  (defmethod to-json-string-internal ((json-library st-json) json)
    (st-json:write-json-to-string json))
  
  (defmethod json-get-internal ((json-library st-json) json key)
    (st-json:getjso key json))
  
  
negative.code:                 object)
      table))
  
  (defmethod json-get-internal ((json-library yason) json key)
    (gethash key json))
  
  