5.3 Documentation addenda
with-monitoring form
;;; FACT is the factorial function n!.
> (defun fact (n)
(if (< n 2) 1 (* n (fact (1- n)))))
FACT
> (compile 'fact)
FACT
> (monitor fact)
(FACT)
> (with-monitoring
(fact 100))
9332621544394415268169923885626670049071596826438162146859 2963895217599993229915608941463976156518286253697920827223 758251185210916864000000000000000000000000
> (print-monitor 'fact)
Monitor information for FACT
Number of calls : 1
Inclusive Time (secs) : 0.010
Exclusive Time (secs) : 0.010
Inclusive Consing (words) : 928
Exclusive Consing (words) : 928
Generated with Harlequin WebMaker