Re: Looping lists through mapcar

[uzibalqa]

------- Original Message -------
On Wednesday, August 24th, 2022 at 11:44 AM, Emanuel Berg <incal@dataswamp.org> 
wrote:


> > (defun my-assoc-lists ()
> > (let* ((name "andromeda-assoc-table-")
> > (list '())
> > (counter 1))
> > (while (boundp (intern (concat name (number-to-string counter))))
> > (setq list (append list (symbol-value (intern (concat name 
> > (number-to-string counter))))))
> > (setq counter (1+ counter)))
> > list))
> 
> 
> DANGER!
> Don't read the above code.
> Your own programming could
> deteriorate as a result.
 
The Satanic Verses !