Function: PROMPT-GENERATOR

Source

(defun prompt-generator (&optional (num 0) (ctl-string "[~d] "))
  (lambda ()
    (format t ctl-string (incf num))))