mirror of https://github.com/rusefi/bldc.git
16 lines
204 B
Common Lisp
16 lines
204 B
Common Lisp
|
|
||
|
|
;; while (true) {
|
||
|
|
;; usleep(500000);
|
||
|
|
;; printf("hello %d\n", x++);
|
||
|
|
;; }
|
||
|
|
|
||
|
|
(let ((f (lambda (x)
|
||
|
|
(progn
|
||
|
|
(yield 500000)
|
||
|
|
(print "hello " x \#newline)
|
||
|
|
(f (+ x 1))))))
|
||
|
|
(f 0))
|
||
|
|
|
||
|
|
|
||
|
|
|