((/centaur/vl/parsetree.lisp::vl-expr-induct (nil nil nil nil (cond) nil nil) (nil nil ((eq flag (quote expr)) (eq flag (quote atts)) t) nil nil nil nil) (nil nil nil nil (if if if) nil nil) ((nil nil nil) nil (vl-atom-p consp consp) (list list list) nil nil nil) ((x x x) nil nil (recursive-call recursive-call recursive-call recursive-call recursive-call recursive-call) nil nil nil) (nil nil (quote vl-nonatom->atts quote vl-nonatom->args quote cdar quote cdr quote car quote cdr) nil nil nil nil) ((atts x list x expr x atts x expr x list x) nil nil nil nil nil nil)))