Here's a Common Lisp version: (let ((b 0)) (symbol-macrolet ((a (incf b))) (and (= a 1) (= a 2) (= a 3)))) For those not familiar with them,

Here's a Common Lisp version: (let ((b 0)) (symbol-macrolet ((a (incf b))) (and (= a 1) (= a 2) (= a 3)))) For those not familiar with them, symbol macros let a symbol be expanded to an arbitrary expression, kinda like a clean version of the C preprocessor.