Re: Looping lists through mapcar

[Jean Louis]

* Emanuel Berg <incal@dataswamp.org> [2022-08-24 15:05]:
> > (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.

But it works, doesn't it?

How can you make it easier?

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/