eval-when-compile vs defconst

[Bob Rogers <rogers-emacs@rgrjr.dyndns.org>]

   From: Stephen Leake <stephen_leake@member.fsf.org>
   Date: Sat, 11 Nov 2006 09:39:32 -0500

   I ran across this construct in ada-mode.el:

   (eval-when-compile
     (defconst ada-95-string-keywords
       '("abstract" "aliased" "protected" "requeue" "tagged" "until")
       "List of keywords new in Ada 95.
   Used to define `ada-*-keywords'."))

   Is there any point to the 'eval-when-compile'? Help for
   eval-when-compile says;

       Like `progn', but evaluates the body at compile time if you're
       compiling. Thus, the result of the body appears to the compiler as
       a quoted constant. In interpreted code, this is entirely
       equivalent to `progn'.

   Since the body is already a quoted constant, this seems redundant. I
   suspect the eval-when-compile is left over from a previous version
   when functions where used to build the string.

It says "the _result_ of the body", i.e. after compile-time evaluation.

					-- Bob Rogers
					   http://rgrjr.dyndns.org/