Recognizes directly or mutually recursive functions.
(recursivep ident call-graph) → *
This function checks whether
Function:
(defun recursivep (ident call-graph) (declare (xargs :guard (and (identp ident) (ident-ident-option-set-mapp call-graph)))) (let ((__function__ 'recursivep)) (declare (ignorable __function__)) (exists-call-pathp ident ident call-graph)))