bldc/tests/test_spawn_3.lisp

7 lines
79 B
Common Lisp

(defun f (x) (+ x 1))
(defun g (x) (check (= (f x) (+ x 1))))
(spawn g 100)