The *tracelist* system variable contains a list of the current functions being traced.
(defun foo (x) (print (car x))) ; define FOO (trace foo) ; returns (FOO) (trace car) ; returns (CAR FOO) (print *tracelist*) ; prints (CAR FOO) (untrace foo) ; returns (CAR) (untrace car) ; returns NIL (print *tracelist*) ; prints NIL
See the
*tracelist*
system variable in the