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