Lisp »Tips 'n Tricks »Salvare in una lista il contenuto di un file TXT

...potresti risolvermi il seguente problema in autolisp?
dovrei creare una lista prendendo i valori da un file TXT quindi vorrei creare un ciclo che apre il file legge riga per riga e crea la lista in un unica variabile...

(defun C:TXT2LST (/ lst nf f1 riga )
 ; inizializzo la lista lst
 (setq lst (list nil))
 (setq nf (getfiled "Txt2Lst" "" "txt" 0))
 (if (/= nf nil)
  (progn
   ; apro e leggo il file nf
   (setq f1 (open nf "r"))
   (setq riga "x")
   (while (/= riga nil)
    ; legge una riga del file
    (setq riga (read-line f1))
    ; aggiungo la riga alla lista
    (setq lst (append lst (list riga))) 
   )
   ; chiudo il file
   (close f1)
   ; visualizzo il contenuto della lista 
   ; sulla riga di comando 
   (princ lst) 
  )
  (progn (princ "\n File non trovato"))
 )
 (princ)
)
; eof

Lisp »Tips 'n Tricks