Re: Looping lists through mapcar

[Emanuel Berg]

> (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.

-- 
underground experts united
https://dataswamp.org/~incal