Plaster

(let ((lst (list 1 2))) (flet ((f (x) (declare (ignore x)) lst)) (apply #'nconc (mapcar #'f '(1 2 3)))))