eval-when-compile vs defconst

[Stephen Leake <stephen_leake@member.fsf.org>]

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.

But I'm not familiar with all of the nuances of byte-compiling, so I
thought I'd ask.

-- 
-- Stephe