(bod when (test) `(if ,test (do ...))) (bod rfn (name parms) `(let ,name nil (set ,name (fn ,parms ...))))