The <procedure-trap> class implements traps that are triggered
upon application of a specified procedure. Instances of this class
should use the #:procedure option to specify the procedure to
trap on.
Example:
(install-trap (make <procedure-trap>
#:procedure my-proc
#:behaviour (list trace-trap
trace-until-exit)))