(defparameter *list* nil)

(loop :for i :in (list 1 2 3 4 5)
      :do (push (lambda () (format t "~a~%" i))
                *list*))

(loop :for fn :in *list* :do (funcall fn))

; prints:
; 5
; 5
; 5
; 5
; 5