Новая синтаксическая форма с макросами и (или) функционалами - Lisp

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

Здравствуйте! Учу лисп, а с этой темой затруднения. Пыталась сделать по примеру с существующей одноименной темы форума, но не получилось. Буду благодарна за помощь! Пользуюсь HomeLisp. Задание: (матрица_1 (список1) (список2)...(списокN)) Собрать все списки в один ((голова1 голова2...) (2-й_элемент1 2-й_элемент2...)...)

Решение задачи: «Новая синтаксическая форма с макросами и (или) функционалами»

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

(defmacro matrix (&rest v)
  `(mapcar 'list ,@v))
 
==> matrix
 
(matrix '(1 2 3) '(4 5 6) '(7 8 9))
 
==> ((1 4 7) (2 5 8) (3 6 9))

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

В коде определена новая синтаксическая форма с макросом matrix, который принимает произвольное количество аргументов &rest v.

При вызове макроса matrix, он выполняет следующие действия:
Сначала он вызывает функцию mapcar с аргументом 'list и всеми остальными аргументами, переданными в макрос matrix. Функция mapcar применяет функцию 'list к каждому элементу списка, передавая его в качестве единственного аргумента функции 'list.
Результатом работы функции mapcar является список, где каждый элемент - это список, состоящий из одного элемента.
Этот результат передается в функцию list, которая преобразует список списков в один плоский список.
Результатом работы макроса matrix является плоский список, полученный после преобразования списков списков в один список. Пример использования макроса: (matrix '(1 2 3) '(4 5 6) '(7 8 9)) ==> ((1 4 7) (2 5 8) (3 6 9))