anchor.diff:  			(pattern `(:sequence 
   				   "{" 
   				   ,(string-downcase (symbol-name var))
  +                                   (:greedy-repetition 0 nil (:inverted-char-class #\{ #\}))
   				   "}")))
   		   (do-replace 
   		       (cl-ppcre:regex-replace 
  
positive.code: (defun make-api-function (name method options args)
    (multiple-value-bind (required-arguments optional-arguments)
        (parse-api-function-arguments args)
      (apply #'make-instance
             'api-function
             (list
              :name name
              :request-method method
              :documentation (getf options :documentation)
              :options options
              :required-arguments (append (multiple-value-bind (scanner vars)
                                              (parse-uri-prefix (getf options :uri-prefix))
                                            (declare (ignore scanner))
                                            vars)
                                          required-arguments)
              :optional-arguments optional-arguments))))
  
  (defmacro with-api (api &body body)
    `(call-with-api ',api (lambda () ,@body)))
  
negative.code:                                         ,(url-pattern-noparams api-function)
                                          (list
                                           ,@(loop for x in vars 
                                                collect (make-keyword (car x))
                                                collect (intern (symbol-name (car x)))))))))
               (log5:log-for (rest-server)  "Request: ~A ~A" ,(request-method api-function) ,request-url)
               ,(when (member (request-method api-function) 
                              '(:post :put))
  