beautiful...

Posted by jgrant, 2006-04-10 15:37:00

(defun flatten-list (exp)
    (if (consp exp)
	(append (flatten-list (car exp)) (flatten-list (cdr exp)))
      (list exp)))