Function: ^wethod-url-frag

Source

(defun ^wethod-url-frag (wethod-name specializers)
  (ensure-prefix-slash-only
   (list-to-delimited-string 
    (let ((counter 0))
      (mapcar (fn (specializer)
		(if (eql specializer t)
		    (strcat ":arg" (^string (incf counter)))
		    (strcat (^string specializer) "_:arg" (^string (incf counter)))))
	      specializers))
    #\/)))