;; Dribble started 2005-01-09 21:20:53
#<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"copy_list.out" @1>
[2]> (defun copy_list(input-list)
	(cond ((null input-list) nil)
              ((not (atom (car input-list)))
                    (cons (car input-list) (copy_list (cdr input-list))))
              (t (copy_list (cdr input-list)))))
COPY_LIST
[3]> 
(copy_list '(1 2 3 4 5 (3 5)))
((3 5))
[4]> (copy_list '(1 2 3 4 5 (3 5) (9 7)))
((3 5) (9 7))
[5]> (copy_list '(1 2 3 4 5 (3 5) 8 7 (9 7)))
((3 5) (9 7))
[6]> (copy_list '(1 2 3 4 5 8 7))
NIL
[7]> (quit)
Bye.