2051 |
17) |
17) |
2052 |
17) |
17) |
2053 |
|
|
2054 |
|
;;; SBCL (0.8.5.24) bug: "bogus operands to XOR" |
2055 |
|
|
2056 |
|
(deftest misc.158 |
2057 |
|
(funcall |
2058 |
|
(compile nil |
2059 |
|
'(lambda (a b c) |
2060 |
|
(declare (type (integer 79828 2625480458) a)) |
2061 |
|
(declare (type (integer -4363283 8171697) b)) |
2062 |
|
(declare (type (integer -301 0) c)) |
2063 |
|
(if (equal 6392154 (logxor a b)) |
2064 |
|
1706 |
2065 |
|
(let ((v5 (abs c))) |
2066 |
|
(logand v5 |
2067 |
|
(logior (logandc2 c v5) |
2068 |
|
(common-lisp:handler-case |
2069 |
|
(ash a (min 36 22477))))))))) |
2070 |
|
100000 0 0) |
2071 |
|
0) |