anchor.diff:  (defun client-stub (api-name api-function)
     (let ((request-url (gensym "REQUEST-URL-"))
           (response (gensym "RESPONSE-")))
  -    (multiple-value-bind 
  -          (scanner vars params)      
  +    (multiple-value-bind (scanner vars params)      
           (parse-api-url (uri-prefix api-function))
         (declare (ignore scanner))
         `(progn
  
positive.code:                 ((equalp string "false") nil)
                  ((equalp string "true") t)
                  ((equalp string "t") t)))
      (:integer (parse-integer string))))
  
  (defun backend-var (backend)
    (intern (format nil "*BACKEND-URL-~A*" backend) :rest-server))
  
negative.code: 
  (defgeneric url-pattern-noparams (api-function))
  (defmethod url-pattern-noparams ((api-function api-function))
    (let* ((pattern (uri-prefix api-function))
  	(pos (position #\? pattern)))
      (if pos
  	(subseq pattern 0 pos)
  