Code: Select all
(setq a '(a1 a2))
(dolist (x a)
(let (z $idx)
(setq x (lambda(y) z))
))
a1: (lambda (y) 0)
a2: (lambda (y) 1)
But I fail.
What's wrong with my code, and how to solve it?
Code: Select all
(setq a '(a1 a2))
(dolist (x a)
(let (z $idx)
(setq x (lambda(y) z))
))
Maybe with :lyl wrote: ↑Fri Aug 28, 2020 5:54 amWhat's wrong with my code, and how to solve it?Code: Select all
(setq a '(a1 a2)) (dolist (x a) (let (z $idx) (setq x (lambda(y) z)) ))
Code: Select all
(dolist (x a)
(let (z $idx)
(set (sym x) (expand (lambda (y) z) 'z))))