anchor.diff:  
   (defun uri-match-p (uri-prefix request-uri)
     (cl-ppcre:scan 
  -   (list :sequence :start-anchor uri-prefix)
  +   (parse-uri-prefix uri-prefix)
      request-uri))
   
   (defun url-pattern (api-function)
  -  (gen-regexp (uri-prefix api-function)))
  +  (parse-uri-prefix (uri-prefix api-function)))
   
   (defclass api-acceptor (hunchentoot:acceptor)
     ((api :initarg :api
  
positive.code: (defparameter *api* nil "The current api")
  
  (defun request-uri-prefix (request-uri)
    (or
     (ppcre:register-groups-bind (prefix) ("(.*)\\?.*" request-uri)
       prefix)
     request-uri))
  
  (defun request-uri-parameters (request-uri)
    (ppcre:register-groups-bind (arguments)
  
negative.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
  