Тут https://common-lisp.net/project/bdb/qbook/mycl-util/api/function_005FMYCL-UTI..., этот странный нерабочий код, или я ошибаюсь
(defun mappend (fn &rest lsts)
"maps elements in list and finally appends all resulted lists."
(apply #'append (apply #'mapcar fn lsts)))
(mapcar 'car '((3 4) (5 6))) ;; работает
append &rest sequences
(apply 'append (apply 'mapcar 'car '((3 4) (5 6)))) ;; это не работает, второго листа нет
(mappend 'car '((3 4) (5 6))) ;; не работает
(mappend '* '(((3 4)) ((5 6)))) и эта не работат
