anchor.diff:  						 ((eq k :posted-content)
                                                     (when (hunchentoot:raw-post-data :external-format :utf8)
                                                       (hunchentoot:raw-post-data :external-format :utf8)))
  -						 ((position k ',vars)
  -						  (let ((pos (position k ',(reverse vars))))
  +						 ((position k ',vars :key #'car)
  +						  (let ((pos (position k ',(reverse vars) :key #'car)))
                                                       (subseq 
   						     (hunchentoot:script-name request)
   						     (aref starts pos)
  
positive.code: 			    (push (parse-api-function-var x)
  				  vars)
  			    `(:register (:NON-GREEDY-REPETITION 1 nil (:INVERTED-CHAR-CLASS #\/)))))))))
  	    :END-ANCHOR)
  	   ))
      (values scanner 
  	    vars)))
  
  
negative.code: 
  (defun parse-api-url (request-string)
    (multiple-value-bind (scanner vars)
  	(parse-uri-prefix (request-uri-prefix request-string))
      (let ((parameters 
  	   (when (find #\? request-string)
  	     (parse-parameters 
  