slime/bin/tests/lexical_scope.slime

(defun make-counter ()
  (let ((var 0))
    (lambda ()
      (mutate var (+ 1 var))
      var)))

(define counter (make-counter))

(assert (= (counter) 1))
(assert (= (counter) 3))
(assert (= (counter) 3))