Here is the definition of DEL! as taken from the source file LIST2.T
(DEFINE (DEL! PRED OBJ LIST)
(COND ((NULL-LIST? LIST) '())
((PRED OBJ (CAR LIST)) (DEL! PRED OBJ (CDR LIST)))
(ELSE (SET (CDR LIST) (DEL! PRED OBJ (CDR LIST)))
LIST)))
I assume this answers your question.
---- Denys.