cdr ll)

(defun list-ap (ll)
(cond
(ll (append (car ll)
(list-ap ( cdr ll) )
) ) ) )
(list-ap '((1 2)(3 (4)))); = (1 2 3 (4))

Содержание раздела

---