Comment 2 for bug 1337069

@stassats, that was what I meant by the "On the other hand" part.

I just couldn't decide if that was serious enough to disable this kind of constant folding for floating point numbers.

Besides this, I believe we didn't do constant folding for integer constants, too:

(defconstant +two+ 2)
(defconstant +three+ 3)
(defun baz (x)
  (* x +two+ +three+))

It's just there's no easy way to identify this, that's why I use floating point constants to report this "bug".