Code
(setq
finp (open "путь к файлу\1.txt" : direction : input)
fout (open "путь к файлу\2.txt" : direction : output)
)
(loop
(if (not(setq sym(read-char finp))) (return))
(if (eq sym #\a) (setq sym #\b))
(write-char sym fout)
)
(close finp)
(close fout)
Программа считывает посимвольно из текстового файла данные, при нахождении символа a заменяет его на символ b.
Результат записывается в файл 2.txt Простая программка, но с таким синтаксисом можно изрядно попатеть, чтобы её написать. setq - присвоение переменной какого-либо значения. loop - цикл, можно и самим догадаться Code
(if (not(setq sym(read-char finp))) (return))
Читает символ из потока finp пока не дойдёт до конца файла. Code
(if (eq sym #\a) (setq sym #\b))
Сравниваем символ на эквивалентность символу a Code
(write-char sym fout)
Пишем символ (или изменённый символ) во второй файл, т.е. используем дескриптор fout Не забываем закрыть файлы, иначе ничего не выйдет.
| 
