Anything to put me off my redraw-problems :-)

(defun flatten (the-list)
    (cond ((null the-list) nil)
          ((atom the-list) (list the-list))
          (t (append
               (flatten (first the-list))
               (flatten (rest the-list))))))

But there probably is a lisp-function that does exactly the same - there
always is :-)

c.