;--- precte textovy soubor a z radku vytvori seznam
(defun fMklist_from_txt (name_of_txt_file / f radek seznam) 
  (setq seznam '())
  (setq f (open name_of_txt_file "r"))
  (setq radek (read-line f))
  (while radek
    (setq seznam (cons radek seznam))
    (setq radek (read-line f))
  )
  (close f)
  (reverse seznam)
)

roman p.

;- nekde tady bude ta predtim poslana funkce fMklist_from_txt, ma pouze jeden parametr a tim je jmeno textoveho souboru.

(defun c:NECO()

(setq seznam_hodnot (fMklist_from_txt "c:\xxx.txt"))

;-----funkce fMklist_from_txt vraci seznam, kde jednotlive polozky jsou radky textoveho souboru

)

roman p.