[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
I DON'T BELIEVE IT !!!
- To: (BUG LISP) at MIT-MC
- Subject: I DON'T BELIEVE IT !!!
- From: DCP at MIT-MC (David C. Plummer)
- Date: Mon, 12 Jan 81 04:33:00 GMT
- Original-date: 11 JAN 1981 2333-EST
WEDGE WEDGE --- WARNING -- DON'T TRUST COMPLR
(defun foo (n)
(print (eval `(- ,n #/A -13)))
(print (eval `(+ (- ,n #/A) 13)))
(print (- n #/A -13))
(print (+ (- n #/A) 13)))
Compile this, and load it into your favorite lisp (base 8. of course)
(foo 101)
13
13
13
13
t
(foo 102)
14
14
12 <======= look at this folks !!!!!!!!!!!!!!!!!!!!
14
t
I DON'T BELIEVE IT !!! I MAY HAVE LOST FAITH !!