RosettaCodeData/Task/Flatten-a-list/Common-Lisp/flatten-a-list-2.lisp

(defun flatten (ls)
  (labels ((mklist (x) (if (listp x) x (list x))))
    (mapcan #'(lambda (x) (if (atom x) (mklist x) (flatten x))) ls)))