Bonjour à tous,

Je suis nouveau sur lisp and je suis confronté à plusieurs problèmes. J'essaie de lire un fichier textuel et de sauvegarder son contenu dans une liste grâce à un programme lisp mais cela ne marche pas.
Apparemment, la partie loop ne fonctionne pas.
Pouvez-vous m'aider ou me dire ce qui est faux dans ce script?

Merci d'avance pour votre aide.
Code lisp:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
(defun parser ()
 ;Initialisation de la liste dico
 (setq dico '())
 ;Initialisation d'une liste ligne
 (setq ligne '(hello))
 ;Lecture du fichier dico 
 (with-open-file (stream "./dico.txt"))
 (loop while (not (null ligne))
  (setq ligne (read-line str))
  (setq dico (cons ligne dico))
 )
)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
MotCle01 MotResultat01
MotCle02 MotResultat02
MotCle03 MotResultat03
MotCle04 MotResultat04