[Lisp] Suppression des parenthèses dans une liste

Bonjour a tous

j'ai un projet a realiser sous emacs en lisp et je souhaiterais savoir comment enlever toutes les parenthèses dans une liste. Par exemple:
( je (voudrais (enlever) des) parentheses) deviendrait:
(je voudrais enlever des parentheses)
Merci d'avance et @ +

Salut
J'ai extrait la liste des atomes et je les concatène avec append en ayant soin de les renvoyer sous forme de liste.
Teste ça qui fonctionne avec CLisp:

Code:

---

1 2 3 4 5

(defun OteParentheses(a) (if (null a) () (if (consp a) (append (OteParentheses (car a)) (OteParentheses (cdr a))) (list a)) ))

---

Ceci dit, il y a peut-être plus simple, il y a longtemps que j'ai fait du Lisp

Merci beaucoup pour votre réponse.

Salut

En fouillant un peu, j'ai trouvé quand même mieux :

Code:

---

1 2 3 4

(defun OteParentheses(a) (if a (if (consp a) (append (OteParentheses (car a)) (OteParentheses (cdr a))) (list a)) ))

---