anchor.diff:  (defparameter *api* nil "The current api")
   
   (defun request-uri-prefix (request-uri)
  -  (or
  -   (ppcre:register-groups-bind (prefix) ("(.*)\\?.*" request-uri)
  -     prefix)
  -   request-uri))
  +  (if (find #\? request-uri)
  +      (subseq request-uri 0 (position #\? request-uri))
  +      request-uri))
   
   (defun request-uri-parameters (request-uri)
     (ppcre:register-groups-bind (arguments)
  
positive.code:                                   parsed-type))
            (and default-value t)))))
  
  (parse-api-function-var "x :boolean true")
  (parse-api-function-var "y :integer 222")
  
  (defun parse-var-value (string type)
    (case type
  
negative.code: (defmethod initialize-instance :after ((api-function api-function) &rest initargs)
    (declare (ignore initargs))
  
    ;; Parse the uri to obtain the required parameters
    (multiple-value-bind (scanner vars)
        (parse-api-url (uri-prefix api-function))
      (declare (ignore scanner))
      (setf (required-arguments api-function) vars))
    
    ;; Validate first
    (validate api-function)
  
  