[1]> (defvar a 0)
A
[2]> (defvar b 1)
B
[3]> (setf (if t a b) 10)
10
[4]> a
10
[5]> b
1
[6]> (setf (if nil a b) 20)
20
[7]> a
10
[8]> b
20