Name

psetf

Usage

macro

Syntax

(psetf sym1 value1 sym2 value2...)

Description

Performs all assignments after evaluating all values.

user > (macroexpand '(psetf v1 (inc v2) v2 (inc v1)))
it: (do
        (let temp:temp-118 (inc v2))
        (let temp:temp-119 (inc v1))
        (setf v1 temp:temp-118)
        (setf v2 temp:temp-119))