Method: (unparse-urlspec url-class-wethod)

Source

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