((/centaur/misc/fal-graphs.lisp::accumulate-to-each (nil nil nil nil (if) nil nil) ((al) nil (atom) (b*) nil nil nil) ((keys (rest (cdr (hons-get (car keys) al)))) nil nil nil (recursive-call) nil nil) ((val) nil (cdr) nil (hons-acons) nil nil) ((keys al) nil (car) (cons) nil nil nil) ((keys val rest) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/centaur/misc/fal-graphs.lisp::graph-transpose (nil nil nil nil (cond) nil nil) (nil nil ((atom edges) (atom (car edges)) t) nil nil nil nil) (nil nil nil (recursive-call recursive-call) nil (b*) nil) (((ret (hons-shrink-alist acc nil)) ret acc) nil (fast-alist-free fast-alist-free cdr cdr) nil (accumulate-to-each) nil nil) ((acc ret edges edges acc) nil (cdar caar) nil nil nil nil) ((edges edges) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))