(function-called-in fn-name expr) → *
Function:
(defun function-called-in (fn-name expr) (declare (xargs :guard (stringp fn-name))) (let ((__function__ 'function-called-in)) (declare (ignorable __function__)) (member-equal fn-name (functions-called expr))))