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)))
Sync 2013-10-27 22:24:23 +00:00			`(defun flatten (ls)`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(labels ((mklist (x) (if (listp x) x (list x))))`
Sync 2013-10-27 22:24:23 +00:00			`(mapcan #'(lambda (x) (if (atom x) (mklist x) (flatten x))) ls)))`