Function: match-url-method

Source

(defun match-url-method (request-url url-method)
  (loop
     ;; discriminators and wethod-url-regexes should be the same length.
     for discriminator in (discriminators url-method)
     for wethod-url-regex in (wethod-url-regexes url-method)
     for (match args) = (multiple-value-list (scan-to-strings wethod-url-regex request-url))
     when match do (return (list match args discriminator))))