Créer liste depuis fichier

Bonjour,

J'ai besoin d'aide pour une fonction lisp.

Cette fonction doit lire dans un fichier contenant des codes de caractères (un code par ligne) : voir fichier
Puis construire une liste de ces codes.

Voici ce que j'ai pour le moment mais la fonction renvoie nil : ici

Ainsi que la fonction que j'ai créé en Python pour m'aider : là

Si quelqu'un sait ce qui cloche dans ma fonction cela me permettrait d'avancer un peu.

Merci d'avance !!

Bon en fait c'est bon j'ai fait ainsi :

Code:

---

1 2 3 4 5 6 7 8

(defun lire-code-en-liste (&aux (liste nil)) (setq alpha_code (open "alpha_code.txt" :direction :input :if-does-not-exist :error)) (loop (cond ((not (setq ligne (read-line alpha_code nil nil))) (return)) ) (push (read-from-string ligne) liste) ) (close alpha_code) (print (reverse liste)) )

---

Qui ne modifie pas la liste. Ou bien comme ça :

Code:

---

1 2 3 4 5 6 7 8

(defun lire-code-en-liste (&aux (liste nil)) (setq alpha_code (open "alpha_code.txt" :direction :input :if-does-not-exist :error)) (loop (cond ((not (setq ligne (read-line alpha_code nil nil))) (return)) ) (setq liste (append liste (list (read-from-string ligne)))) ) (close alpha_code) (print liste) )

---

Citation:

---

Envoyé par MilkyMars

Bon en fait c'est bon j'ai fait ainsi :

---

Vu que 'liste' est une variable locale que tu construis toi-même, tu peux sans aucun risque la modifier physiquement (avec nreverse ou nconc).

Prends l'habitude de déclarer tes variables locales.

Pour avoir une fonction plus générale:
- passe-lui les données en paramètre,
- imprime plutôt au retour que dans la fonction.

Code:

---

1 2 3 4 5 6 7 8 9

(defun lire-code-en-liste (file &aux (liste nil)) (let ((alpha_code (open file :direction :input :if-does-not-exist :error)) ligne) (while (setq ligne (read-line alpha_code nil nil)) (push (read-from-string ligne) liste) ) (close alpha_code) (nreverse liste) ))   (print (lire-code-en-liste "alpha_code.txt"))

---

Ou bien:

Code:

---

1 2 3 4 5 6 7 8 9

(defun lire-code-en-liste (file &aux (liste nil)) (let ((alpha_code (open file :direction :input :if-does-not-exist :error)) ligne) (while (setq ligne (read-line alpha_code nil nil)) (setq liste (nconc liste (list (read-from-string ligne)))) ) (close alpha_code) liste ))   (print (lire-code-en-liste "alpha_code.txt"))

---