Re: optimizing defconst

[Davis Herring]

>     (if (featurep 'xemacs)
>         (defvaralias 'viper-xemacs-p t)
>       (defvaralias 'viper-xemacs-p nil))
>
>     (setq viper-xemacs-p t)
>        => Attempt to set a constant symbol: viper-xemacs-p

...which of course simplifies to

(defvaralias 'viper-xemacs-p (featurep 'xemacs))

which is of course identical to `set' in interface, though it only
supports booleans (use "(not (not val))" to convert).  That's ...
intensely and simultaneously amusing and disgusting.

Davis

-- 
This product is sold by volume, not by mass.  If it appears too dense or
too sparse, it is because mass-energy conversion has occurred during
shipping.