(defun ^class-wethod-url-frag (wethod-name class-specializers) (ensure-prefix-slash-only (list-to-delimited-string (mapcar '^string class-specializers) #\/)))