, LispWorks . , SBCL .
, :
(defmacro foo ()
`(list 1 2 3))
(defun bar () (first (foo)))
(defun baz () (second (foo)))
, foo:
CL-USER 11 > (who-calls 'foo)
(BAZ BAR)
:
CL-USER 12 > (mapcar 'compile (who-calls 'foo))
;;;*** Warning in BAZ: The definition of BAZ is already compiled.
;;;*** Warning in BAR: The definition of BAR is already compiled.
(BAZ BAR)
LispWorks who-calls, , /.
Edit Callers Continue Tags Search, , . / , .