Отслеживание замыкания

Можно ли отследить замыкание в CL? Например, могу ли я отследить foo-3 ниже?

(defun foo (n)
    (lambda (i) (incf n i)))
FOO
(setf foo-3 (foo 3))
#<CLOSURE :LAMBDA (I) (INCF N I)>

(funcall foo-3 2)
5
(funcall foo-3 2)
7
(trace ???)