anchor.diff:                  ((equalp string "false") nil)
                   ((equalp string "true") t)
                   ((equalp string "t") t)))
  -    (:integer (parse-integer string))))
  +    (:integer (parse-integer string))
  +    (:string (string-trim (list #\") string))
  +    (t string)))
   
   (defun backend-var (backend)
     (intern (format nil "*BACKEND-URL-~A*" backend) :rest-server))
  
positive.code: (defun client-stub (api-name api-function)
    (let ((request-url (gensym "REQUEST-URL-"))
          (response (gensym "RESPONSE-")))
      (multiple-value-bind 
            (scanner vars params)      
          (parse-api-url (uri-prefix api-function))
        (declare (ignore scanner))
        `(progn
  
negative.code: (defun make-api-function (name method options args)
    (multiple-value-bind (required-arguments optional-arguments)
        (parse-api-function-arguments args)
      (make-instance 'api-function
                     :name name
                     :request-method method
                     :uri-prefix (getf options :uri-prefix)
                     :documentation (getf options :documentation)
                     :options options
                     :required-arguments required-arguments
                     :optional-arguments optional-arguments)))
  
  (defmacro with-api (api &body body)
    `(call-with-api ',api (lambda () ,@body)))
  