Check for the existence of a call path from the destination to the target.
(exists-call-pathp from to call-graph) → *
That is, the function checks whether
Function:
(defun exists-call-pathp (from to call-graph) (declare (xargs :guard (and (identp from) (ident-optionp to) (ident-ident-option-set-mapp call-graph)))) (let ((__function__ 'exists-call-pathp)) (declare (ignorable __function__)) (in to (call-graph-transitive-closure from call-graph))))