(setf *x* 42 *y* (1+ *x*))
=>43