I DON'T BELIEVE IT !!!

[David C. Plummer <DCP at MIT-MC>]

Will somebody please fix this compiler bug. IT REALLY IS A BUG,
ISN'T IT?

(defun foo (n)
       (print (eval `(- ,n #/A -13)))
       (print (eval `(+ (- ,n #/A) 13)))
       (print (- n #/A -13))
       (print (+ (- n #/A) 13)))

(defun foo$ (n)
       (print (eval `(-$ ,n 101.0 -13.0)))
       (print (eval `(+$ (-$ ,n 101.0) 13.0)))
       (print (-$ n 101.0 -13.0))
       (print (+$ (-$ n 101.0) 13.0)))


(foo 101) is ok
(foo 102) is not ok
(foo$ 101.0) is ok
(foo$ 102.0) is not ok

Please???