anchor.diff:  (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))))
  +    (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)))
  
positive.code:   `(progn
       (make-instance 
        'api-definition 
        :name ,name
        :options ',options)
       (with-api ,name
        ,@(loop for x in functions
  
negative.code: 			(pattern `(:sequence 
  				   "{" 
  				   ,(string-downcase (symbol-name var))
                                     (:greedy-repetition 0 nil (:inverted-char-class #\{ #\}))
  				   "}")))
  		   (do-replace 
  		       (cl-ppcre:regex-replace 
  