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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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) )