1 (defun deep-reverse (lst)
2   (cond ((null lst) nil)
3 	((consp (car lst))
4 	 (append
5 	  (deep-reverse (cdr lst))
6 	  (list (deep-reverse (car lst)))))
7 	(t
8 	 (append
9 	  (deep-reverse (cdr lst))
10 	  (list (car lst))))))