lisp - 在 LISP 中使用 dolist 反转列表

Question

我尝试反转列表，我不能使用函数“nreverse”

我试试:

(defun dolist-reverse (l)
  (let ((new-list (make-list (length l))))
    (dolist (x l new-list)
      (setf new-list (cons x new-list)))))

但结果是:

CL-USER> (dolist-reverse '(1 2 3))

(3 2 1 NIL NIL NIL)

我该怎么办？ (我需要使用 dolist)

编辑:

终于解决了我的问题:

(defun dolist-reverse (l)
  (let ((new-list))
    (dolist (x l new-list)
      (setf new-list (cons x new-list)))))

Answer 1

CL-USER 11 > (defun dolist-reverse (list &aux (reverse-list nil))
               (dolist (element list reverse-list)
                 (push element reverse-list)))
DOLIST-REVERSE

CL-USER 12 > (dolist-reverse '(1 2 3))
(3 2 1)