(print 
 (let ((aaa 3000) (bbb 4000) (ms '(aaa bbb)))
   (mapcar
    (lambda (arg) 
      (funcall 
       (let ((my-closure (lambda () arg)))
         (setf (car (last (function-lambda-expression my-closure))) arg)
         my-closure)))
    ms)))