rusefi
/
bldc
mirror of https://github.com/rusefi/bldc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
bldc/tests/test_explicit_gc_0.lisp

12 lines
179 B
Common Lisp
Raw Blame History

(define f (lambda (x)
(if (= x 0)
'done
(progn
(gc)
(f (- x 1))))))
(eq (f 100) 'done)
Reference in New Issue View Git Blame Copy Permalink