flatten-list.lisp

(defun flatten (lst)
  "flatten nested list"
  (labels ((flatten-rec (lst acc)
             (cond ((null lst) acc)
                   ((atom lst) (cons lst acc))
                   (t (flatten-rec
                       (car lst)
                       (flatten-rec (cdr lst) acc))))))
    (flatten-rec lst nil)))