Reverse pop, return value

[LanX <lanx.perl@googlemail.com>]

Hi

I tried to realize a reverse pop which pops from the end of the list,
but the code get's "lengthy"....

I need to define a local variable to hold the return value... is there
a more elegant way to do it?

 ----------- M-x ielm
ELISP> (defun rpop (LIST)
	 "reverse pop"
	 (let
            ( (ret (car (last LIST))) )
            (nbutlast LIST 1)
	    ret
	 )
       )
rpop
ELISP> (setq list '(a b c d e f g h i j))
(a b c d e f g h i j)

ELISP> (rpop list)
j
ELISP> (rpop list)
i
ELISP> (rpop list)
h
 -------------

There must be a technique to simplify this !?!
Thanx
  Rolf