[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

I DON'T BELIEVE IT !!!



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???