Use new environment protocol to define DEFCONSTANT.
Removed function DEFCONSTANT-FUNCTION, replaced by new environment protocol.