-# define wv_set_evalable_slot(slot,form) \
- do { Lisp_Object _f_ = (form); \
- slot = (NILP (_f_) ? 0 : \
- EQ (_f_, Qt) ? 1 : \
- !NILP (Feval (_f_))); \
- } while (0)
+# define wv_set_evalable_slot(slot,form) do { \
+ Lisp_Object wses_form = (form); \
+ (slot) = (NILP (wses_form) ? 0 : \
+ EQ (wses_form, Qt) ? 1 : \
+ !NILP (Feval (wses_form))); \
+} while (0)