Name

psetf

Usage

macro

Syntax

(psetf sym1 value1 sym2 value2...)

Description

Performs all assignments after evaluating all values.

user 1 > (macroexpand '(psetf v1 (inc v2) v2 (inc v1)))
it: (merging-do
        (let temp:temp-706 (inc v2))
        (let temp:temp-707 (inc v1))
        (setf v1 temp:temp-706)
        (setf v2 temp:temp-707))