anchor.diff:  ;;;;                                                    collect `(:object :name ,param)))))))))
   ;;;;           (json:with-explicit-encoder
   ;;;;             (json:encode-json json-data stream))))
  -;;;;     
  +;;;;
   ;;;;     (defun generate-smd-file (filename)
   ;;;;       (with-open-file (s filename :direction :output :if-exists :supersede)
   ;;;;         (generate-smd s "/schat/json-rpc")))
  -;;;;     
  +;;;;
  
positive.code:     t))
  
  (defgeneric encode-json-rpc-value (raw-value encoding)
    (:documentation "Translate RAW-VALUE according to JSON-RPC 
  value encoding ENCODING")
    (:method :before (raw-value encoding)
      (unless (json-rpc-encoding-p encoding)
        (error "Invalid JSON-RPC encoding spec: ~a" encoding)))
    (:method (raw-value (encoding (eql :guessing)))
  
negative.code:         (with-explicit-encoder
            (encode-json-to-string
             (cond ((null raw-val) +empty-array+)
                   ((listp raw-val)
                    (cons :array raw-val))
                   ((arrayp raw-val)
                    raw-val)
  