Elisp - 删除长度为1的列表中的唯一项目

在Emacs Lisp中,我似乎无法从列表中删除最后一项.

;; This works.
(setq list1 '(alpha beta))
(delete 'alpha list1) ;; => (beta)
;; list1 => (beta)

;; NOPE.
(setq list1 '(alpha))
(delete 'alpha list1) ;; => nil
;; list1 => (alpha)

为什么？

如果有可能的话,我该怎么做？