>>295 append ってこんなにややこしかったっけ？

;;; dolist 版
(defun my-append-1 (lst1 lst2)
(let ((result lst2))
(dolist (item (reverse lst1) result)
(push item result))))

(defun my-append (&rest lsts)
(cond ((null lsts) lsts)
((null (cdr lsts)) (car lsts))
(t (let ((result nil))
(dolist (item lsts result)
(setq result (my-append-1 result item)))))))