RosettaCodeData/Task/Flatten-a-list/Emacs-Lisp/flatten-a-list-1.el

(defun flatten (mylist)
  (cond
   ((null mylist) nil)
   ((atom mylist) (list mylist))
   (t
    (append (flatten (car mylist)) (flatten (cdr mylist))))))