|
| From: | LanX |
| Subject: | Re: Reverse pop, return value |
| Date: | Tue, 17 Nov 2009 09:20:56 -0800 (PST) |
| User-agent: | G2/1.0 |
Thanx Lennart!
Thats what I was looking for! 8)
---------------
(defun rpop (LIST)
"reverse pop"
(prog1
(car (last LIST))
(nbutlast LIST 1)
)
)
--------------
bye
rolf
| [Prev in Thread] | Current Thread | [Next in Thread] |