((/coi/gensym/gensym.lisp::gensym::genvar2-rec (nil nil nil nil (if) nil nil) ((nil) nil (zp) (let) nil nil nil) ((n (symbol (symbol-fns::suffix base n))) nil nil nil (if) nil nil) ((symbol) nil (not) nil (recursive-call) nil nil) ((base vars) nil (1-) (member) nil nil nil) ((symbol vars n) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/coi/gensym/gensym.lisp::gensym::genvar2 (nil nil nil nil (gensym::genvar2-rec) nil nil) ((base vars) nil (1+) nil nil nil nil) (nil nil (len) nil nil nil nil) ((vars) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/coi/gensym/gensym.lisp::gensym::gensym (nil nil nil (let) nil nil nil) (((base (if (and base (symbolp base)) base (quote gensym::gensym)))) nil nil nil (if) nil nil) ((base) nil nil (list::memberp gensym::genvar2) nil nil nil) ((base vars base vars) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))