anchor.diff:      t))
   
   (defgeneric encode-json-rpc-value (raw-value encoding)
  -  (:documentation "Translate RAW-VALUE according to JSON-RPC 
  +  (:documentation "Translate RAW-VALUE according to JSON-RPC
   value encoding ENCODING")
     (:method :before (raw-value encoding)
  +    (declare (ignore raw-value))
       (unless (json-rpc-encoding-p encoding)
         (error "Invalid JSON-RPC encoding spec: ~a" encoding)))
     (:method (raw-value (encoding (eql :guessing)))
  
positive.code:   (:documentation "Is KEYWORD a valid JSON-RPC value encoding?")
    (:method (keyword)
      "Default is no."
      nil)
    ;;; built-in methods
    (:method ((keyword (eql :guessing)))
  
negative.code: ;;;; up and incorporated this into json-rpc
  ;;;;
  ;;;;     (defmacro defun-schat-api (name params &body body)
  ;;;;        .....
  ;;;;         (setf (gethash ',name *json-rpc-method-definitions*)
  ;;;;          (list :parameters params))
  ;;;;
  ;;;;     (defun generate-smd (stream service-url)
  ;;;;       (let ((json-data
  ;;;;               `(:object
  ;;;;                  :service-type  "JSON-RPC"
  ;;;;                  :service-+url+ ,service-url
  ;;;;                 :methods
  ;;;;                  (:list
  ;;;;                   ,@(loop for fname being each hash-key of *json-rpc-method-definitions*
  ;;;;                        using (hash-value description)
  