[Small-cl-src-discuss] Re: [Small-cl-src] What would var+++ be in CL?
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
Douglas Philips <dgou@mac.com> writes:
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
start of thread: http://groups.google.com/groups?selm=2hptwt339r.fsf%40vserver.cs.uit.no best solution: http://groups.google.com/groups?selm=lkd6stcsh3.fsf%40pc022.bln.elmeg.de -- -Marco Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen
participants (2)
-
Douglas Philips -
marco