list - 返回普通lisp中没有最后一个元素的列表

Question

我编写了我的愚蠢函数，它返回一个没有通用 lisp 中最后一个元素的列表。这个问题有没有更优雅的解决方案？

这是我的代码:

(defun list-without-last (l)
  (if (> (length (rest l)) 0)
      (append (list (first l)) (list-without-last (rest l)))
      nil))

Answer 1

简短而简单，就像 Lisp 一样。
这是神奇的东西:
(defun without-last(l)
(reverse (cdr (reverse l)))
)