[Small-cl-src] What would var+++ be in CL?

[Ingvar]

;;; 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))))))