Взаимодействия с файлами - Lisp

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

И снова здравствуйте! И снова я прошу помощи на канун Нового Года. Написать программу, вводящую данные из файла, содержащего n строк по шесть чисел, таким образом, что содержание нечётных строк присваивается элементам массива А, чётных строк – элементам массива В. Вывести эти значения на экран Буду очень признателен, тем кто поможет.

Решение задачи: «Взаимодействия с файлами»

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

(defun task (fnam)
  (let ((fi (gensym 'fi))
        (a nil)
        (b nil))
       (filOpen fi fnam _INPUT)
       (loop
            (when (filEOF fi) (return t))
            (push (input (strCat "(" (filGetLine fi) ")")) a)
            (push (input (strCat "(" (filGetLine fi) ")")) b))
       (filClose fi)
       (list (apply 'append (reverse a))
               (apply 'append (reverse b)))))

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

В данном коде реализована функция task, которая выполняет следующие действия:

Создает две пустые переменные: a и b.
Создает уникальное имя файла с помощью функции gensym и сохраняет его в переменную fi.
Открывает файл с помощью функции filOpen и сохраняет результат в переменную fi.
В цикле loop считывает строки из файла с помощью функции filGetLine и добавляет их в переменные a и b с помощью функции push.
Закрывает файл с помощью функции filClose.
Считывает содержимое переменных a и b, преобразует их в строки с помощью функции input.
Преобразует строки в символы списков с помощью функции strCat.
Применяет функцию append к переменным a и b, чтобы объединить их содержимое в один список.
Возвращает объединенный список.