Function: cl--do-arglist

(fn ARGS EXPR &optional NUM)