slime/bin/tests/regression.slime

(define (empty-function-body-test))

;; test that arguments to apply are only evaled once
(define counter 0)
(assert (= (apply (lambda (x) x) (begin (mutate! counter (+ 1 counter)) (list +)))
           +))
(assert (= counter 1))