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)
      table))
  
  (defmethod to-json-string-internal ((json-library yason) object)
    (with-output-to-string (out)
      (yason:encode object out)))
  
  (defmethod json-get-internal ((json-library yason) json key)
    (gethash key json))
  
  
negative.code:         (rove:ok (equal 100 (gethash "b" json)))
          (rove:ok (equal '(1 2) (gethash "c" json)))))))
  
  (rove:deftest json-get
    (rove:testing "st-json"
      (let ((*json-library* (make-instance 'st-json)))
  