ELIMINAR es destructivo, pero no siempre?

Estoy un poco confundido acerca de la destructiva función DELETE de Common Lisp. Parece funcionar como se espera, excepto si el elemento es el primer elemento de la lista:

CL-USER> (defvar *test* (list 1 2 3))
*TEST*
CL-USER> (delete 1 *test*)
(2 3)
CL-USER> *test*
(1 2 3)
CL-USER> (delete 2 *test*)
(1 3)
CL-USER> *test*
(1 3)

Respuestas a la pregunta(3)

Su respuesta a la pregunta