Possible problem with compile

[Immanuel Litzroth]

This triggers a problem
(compile '(error "you have a problem"))
;; here compile-command is (error "you have a problem")
;; and the next compilation(s) will eval that so they fail
(compile "ls")

This is the relevant code from compile.el:

 (unless (equal command (eval compile-command))
    (setq compile-command command))

I don't quite understand why the compile-command is evalled before setting
in this context. Documentation seems to suggest it should be a string whether
whether it is set via (compile something) or (setq compile-command something)
Immanuel


-- 
-- A man must either resolve to point out nothing new or to become a
slave to defend it. -- Sir Isaac Newton