Function: match-url-methods

Source

(defun match-url-methods (request-url url-methods)
  (loop
     for url-method in url-methods
     for (match args discriminator) = (match-url-method (=~ (url-regex url-method) request-url $a) url-method)
     when match do(return (values (apply-url-method url-method args discriminator)))))