Функциональность лямбда отличные параметры

Question

Я пытаюсь создать лямбда-функции, которые используют один и тот же код, но имеют разные Внутренние параметры. Чтобы уточнить, я помещаю здесь код:

(defun testes() 
(setf lol '()) 
(loop for i in (list 1 2 3 4 5) 
     do (loop for j in (list 1 2 3 4 5) 
     do (setf lol (append lol (list (cons i j)))))) 


lol 

) 

(defun mainff() 
(setf lol (testes)) 
(setf res()) 
(print lol) 
(loop for i in lol 
    do (setf res (append res (list #'(lambda() 
         (print i) 
         )))) 
) 
res 
) 

(defun fun() 
(setf res (mainff)) 

(loop for i in res 
    do (funcall i) 
) 
) 

Возвращаясь к Inicial вопрос, я в Append УЭ должен быть уникальным для каждого лямбда, который создается. Однако он сохраняет только последнее значение, которое он принимает (5 5). Любой способ решить это?

Answer 1

Используйте LET, чтобы создать другую привязку для каждого i.

(loop for element in list 
     ... 

     (let ((i element)) 
      (lambda() 
      (print i))) 

     ... 

    )