CL-USER > (defun generator (start)
  (let ((x start))
    (lambda ()
      (incf x))))
GENERATOR

CL-USER > (defparameter g (generator 10))
G

CL-USER > (funcall g)
11

CL-USER > (funcall g)
12

CL-USER > (defparameter h (generator 20))
H

CL-USER > (funcall h)
21

CL-USER > (funcall h)
22

CL-USER > (funcall g)
13