Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
 1 665c255d 2023-08-04 jrmu (defun deep-reverse (lst)

 2 665c255d 2023-08-04 jrmu   (cond ((null lst) nil)

 3 665c255d 2023-08-04 jrmu 	((consp (car lst))

 4 665c255d 2023-08-04 jrmu 	 (append

 5 665c255d 2023-08-04 jrmu 	  (deep-reverse (cdr lst))

 6 665c255d 2023-08-04 jrmu 	  (list (deep-reverse (car lst)))))

 7 665c255d 2023-08-04 jrmu 	(t

 8 665c255d 2023-08-04 jrmu 	 (append

 9 665c255d 2023-08-04 jrmu 	  (deep-reverse (cdr lst))

10 665c255d 2023-08-04 jrmu 	  (list (car lst))))))