|
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] |