[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Returning a single alist

From: wilnerthomas
Subject: Returning a single alist
Date: Thu, 25 Aug 2022 01:23:33 +0200 (CEST)

The function `translate' ends up returning a list of alists.  What can I do to 
return just a single alist? 

(defconst assoc-table-1  '( ("gigantic" . "jgN") ("graphology" . "Gol")  
("phrenology" . "fnol") ))(defconst assoc-table-2  '( ("psychology" . "skol")  
("physiology" . "fsol") ("minerology" . "Mnol") ))
(defun translate ()  "TODO"  (let* ( (name "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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]