((/centaur/misc/dfs-measure.lisp::dfs-measure (nil nil nil (list) nil nil nil) (nil nil (len) (dfs-nodesleft) nil nil nil) ((edges stack nodes) 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) (nil nil nil nil nil nil nil)) (/centaur/misc/dfs-measure.lisp::dfs-collect (nil nil nil (b*) nil nil nil) (nil nil nil nil (recursive-call) nil nil) ((edges stack1) nil (node (when (hons-get node stack)) succs stack1 stack1 (unless (mbt (suffixp stack stack1))) cdr) nil nil nil nil) ((stack1 nodes) nil (car cdr) nil (recursive-call hons-acons recursive-call) nil nil) ((nodes edges stack node t stack succs edges stack1) nil (cdr) (hons-get) nil nil nil) ((nodes node edges) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))