Simon Brooke
70376c6529
stack frames for interpreted (but not primitive) functions appear not to be being reclaimed, and the oblist doesn't seem to be being fully reclaimed.
9 lines
173 B
Common Lisp
9 lines
173 B
Common Lisp
(set! fact
|
|
(lambda (n)
|
|
"Compute the factorial of `n`, expected to be a natural number."
|
|
(cond ((= n 1) 1)
|
|
(t (* n (fact (- n 1)))))))
|
|
|
|
(fact 25)
|
|
|
|
|