Объединить список списков и вернуться в цикле

Question

Я пытаюсь объединить весь список списков в один.

Вот мой код до сих пор:

(DEFUN DESCRIPTION (BLOCK) 
    (loop initially (setf result '()) 
     for desc in (DESC2 BLOCK) 
     do (append result desc) 
     finally (return result) 
     ) 
) 

Функция (DESC2 BLOCK) возвращает следующее:

((SHAPE BRICK) (COLOR GREEN) (SIZE SMALL) (SUPPORTED-BY B2) (SUPPORTED-BY B3)) 

Я просто нужна функция, чтобы вернуть слитый список:

(SHAPE BRICK COLOR GREEN SIZE SMALL SUPPORTED-BY B2 SUPPORTED-BY B3) 

Я пробовал так много способов и так много исследовал. Извините, но я не полностью знаю язык LISP, и был бы признателен, если вы можете мне помочь!

Спасибо заранее!

Answer 1

Просто добавьте подсписков в LOOP:

CL-USER 23 > (loop for l in '((SHAPE BRICK) (COLOR GREEN) (SIZE SMALL) 
           (SUPPORTED-BY B2) (SUPPORTED-BY B3)) 
        append l) 
(SHAPE BRICK COLOR GREEN SIZE SMALL SUPPORTED-BY B2 SUPPORTED-BY B3) 

или использовать REDUCE для APPEND

CL-USER 24 > (reduce #'append 
        '((SHAPE BRICK) (COLOR GREEN) (SIZE SMALL) 
         (SUPPORTED-BY B2) (SUPPORTED-BY B3))) 
(SHAPE BRICK COLOR GREEN SIZE SMALL SUPPORTED-BY B2 SUPPORTED-BY B3) 

или использовать MAPCAN

CL-USER 25 > (mapcan #'copy-list 
        '((SHAPE BRICK) (COLOR GREEN) (SIZE SMALL) 
         (SUPPORTED-BY B2) (SUPPORTED-BY B3))) 
(SHAPE BRICK COLOR GREEN SIZE SMALL SUPPORTED-BY B2 SUPPORTED-BY B3) 

MAPCANкарт функция над списком и объединяет списки результатов разрушительно. Таким образом, используйте COPY-LIST для копирования подписок.