Нахождение наименьшего общего кратного - Lisp

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

помогите решить задачу, пожалуйста наименьшее общее кратное (нок) MY-LCM CL-USER> (my-lcm 12 18) 36 CL-USER> (my-lcm 12 18 22) 396

Решение задачи: «Нахождение наименьшего общего кратного»

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

(if (and from-and initial-value)
  (setq list (append list (list initial-value))
          list (cons initial-value list)))

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

В коде представлена проверка условия с помощью оператора if. Условие задано с помощью логического выражения (and from-and initial-value), которое проверяет, истинно ли, что переменная from-and имеет значение true и переменная initial-value имеет значение true. Если условие истинно, то выполняется блок кода, заключенный в скобки, который состоит из двух выражений:

(setq list (append list (list initial-value))) - в этом выражении создается новый список, который состоит из текущего значения списка (list) и значения переменной initial-value. Функция append используется для добавления элемента в список.
(list initial-value) - это выражение создает новый список, содержащий только значение переменной initial-value. Если условие ложно, то ничего не происходит. Таким образом, код проверяет, является ли значение переменных from-and и initial-value истинными, и если это так, то добавляет значение initial-value в список.