anchor.diff:    (lambda ()
       (wait-for-page)
       (setf (hunchentoot:content-type*) "application/json")
  -    (funcall (alexandria:compose #'jsown:to-json
  +    (funcall (alexandria:compose #'response-json-parser
                                    callback
                                    #'parse-request-uri)
                components)))
  
positive.code:          (setf (gethash symbol variables-hash) value))
      variables-hash))
  
  (defun mk-response-method (components callback)
    "constructs a method which parses <components> and calls
    <callback> with a hash containing the variables of the call as
  
negative.code:                                           for e across ends
                                            collect (subseq (hunchentoot:request-uri*) s e))))
                 (let ((response (apply function request-components)))
                   (response-json-parser response))))))
          hunchentoot:*dispatch-table*))
  
  (defmacro defcall (method (&rest components) &body body)
  