Описать функцию Lines (T), которая построчно печатает содержимое непустого текстового файла Т, вставляя в нача - Lisp

Формулировка задачи:

Описать функцию Lines (T), которая построчно печатает содержимое непустого текстового файла Т, вставляя в начало каждой печатаемой строки ее порядковый номер (он должен занимать четыре позиции) и пробел

Решение задачи: «Описать функцию Lines (T), которая построчно печатает содержимое непустого текстового файла Т, вставляя в нача»

Листинг программы

(defun lines (fname)
  (iter (for stri in-file fname)
        (for n upfrom 1)
        (printsline (strCat (format n "0000") " " stri))))
 
==> lines
 
(lines "zzz.txt")
 
0001 AbrakaDabra
0002 AbrakaDabra
0003 AbrakaDabra
 
==> "0003 AbrakaDabra"

Объяснение кода листинга программы

В данном коде определена функция Lines (T), которая принимает в качестве аргумента имя непустого текстового файла Т и выводит его содержимое построчно, вставляя в начало каждой строки, перед самим текстом, число из диапазона от 1 до 9999. Список действий, выполняемых в коде:

(defun lines (fname) — определение функции Lines с именем fname, которая принимает один аргумент fname — имя файла.
(iter (for stri in-file fname) — итерация по каждой строке файла fname с помощью цикла for.
(for n upfrom 1) — итерация по числам от 1 до 9999 с помощью цикла for.
(printsline (strCat (format n 0000) stri)) — вызов функции printsline, которая печатает результат конкатенации строки формата 0000 и строки stri. При этом, каждое число из диапазона от 1 до 9999 дополняется до пяти цифр нулями.