anchor.diff:     (list :sequence :start-anchor uri-prefix)
      request-uri))
   
  +(defun url-pattern (api-function)
  +  (gen-regexp (uri-prefix api-function)))
  +
   (defclass api-acceptor (hunchentoot:acceptor)
     ((api :initarg :api
           :accessor api
  
positive.code:     ,@body))
  
  (defun find-api (name)
    (find name *apis* :key #'name))
  
  (defmethod find-api-function ((api symbol) function-name)
    (find-api-function (find-api api) function-name))
  
  (defmethod find-api-function ((api api-definition) function-name)
    (find function-name (functions api) :key #'name))
  
  (defun format-api-url (api function-name &rest args)
    (let ((api-function (find-api-function api function-name)))
      (replace-vars-in-url (url-pattern api-function) args)))
negative.code: 
    ;; Install the api function
    (let ((api (or *api* (error "Specify the api"))))
      (setf (gethash (name api-function) (functions api))
            api-function)))
  
  ;; (defmethod initialize-instance :after ((api-function api-function) &rest args)
  