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

7 lines
161 B
Common Lisp
Raw Blame History

(check (progn
(define f (lambda (x)
(if (= x 0)
't
(f (- x 1)))))
(f 1)))
Reference in New Issue View Git Blame Copy Permalink