Method: (unparse-urlspec url-wethod)

Source

(defmethod unparse-urlspec ((url-spec url-wethod))
  (with-slots (url url-regex dispatch discriminators wethod-urls wethod-url-regexes) url-spec
    (list :wethod (list :url url url-regex)
	  :dispatch dispatch
	  :discriminators discriminators
	  :wethod-urls (mapcar #'list wethod-urls wethod-url-regexes))))