Lire un fichier.txt en lisp

Bonjour,
j'ai besoin d'une aide en langage lisp
en fait mon problème c de comment lire les lignes d'un fichier.txt et les stoker dans une liste
j'ai essayé et voilà mon code :

(defun parser ()
(setq base '()) ;initialisation d'une liste base
(setq ligne '(hello)) ;initialisation d'une liste ligne
;ouvrir le fichier"test.txt"
(with-open-file (str "c:/test.txt")
;parcours ligne par ligne et lire
(loop while (not(null ligne)) do
(setq ligne (read-line str))
(setq base (cons ligne base)) )
)
)
le pb c lorske j'exécute en listener en appelant la fonction (parser) il affiche cet erreur
Error: End of file while reading stream #<STREAM::LATIN-1-FILE-STREAM c:\test.txt>

Aidez-moi à trouver une solution c urgent!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!