小编use*_*267的帖子

如何反转列表,使每个子列表也反转？这是我到目前为止:

(defun REV (L)
  (cond
    ((null L) nil)
    ((listp L)
     (append
      (REV (cdr L))
      (list (car L))))
    (t
     (append
      (REV (cdr L)) 
      (list (car L))))))