14 lines
311 B
Common Lisp
14 lines
311 B
Common Lisp
|
|
(defun half (n) (* n 0.5))
|
|
|
|
(defun average (x y)
|
|
(half (+ x y)))
|
|
|
|
(trace) ; returns list of traced functions
|
|
(trace half average)
|
|
|
|
(average 7 5) ; tree of calls printed into repl
|
|
|
|
(untrace half)
|
|
(untrace) ; untraces all
|