23 Sep
2004
23 Sep
'04
12:36 p.m.
On Sep 23, 2004, at 11:05 AM, Ingvar wrote:
;;; Possibly a tad naive, but... (defmacro post-incf (form &optional (increment 1)) (let ((value (gensym "POST-INCF"))) `(let ((,value ,form)) (prog1 ,value (setf ,form (+ ,value ,increment))))))
Actually, this came up on comp.lang.lisp and a few good versions were posted there. i'm accessing the net via a temp. connection (i'm on vacation), else I'd just search and give the pointer to the posts myself. <D'gou