 <p>I am learning clisp, but it can work.</p> <pre><code>(defun append-all (x L) (flet ( (append-item (alist) (append alist (list x)))) (mapcar #'append-item L))) (print (append-all '3 '((1) (2 1) (2)))) </code></pre>