>>591

(setq L '(1 2 3 4 5))
=> (1 2 3 4 5)
(setcdr (last L 2) nil)
=> nil
L
=> (1 2 3 4)