2069 |
(pass-if n |
(pass-if n |
2070 |
(= i (logcount n)))))) |
(= i (logcount n)))))) |
2071 |
|
|
2072 |
|
;;; |
2073 |
|
;;; lognot |
2074 |
|
;;; |
2075 |
|
|
2076 |
|
(with-test-prefix "lognot" |
2077 |
|
(pass-if (= -1 (lognot 0))) |
2078 |
|
(pass-if (= 0 (lognot -1))) |
2079 |
|
(pass-if (= -2 (lognot 1))) |
2080 |
|
(pass-if (= 1 (lognot -2))) |
2081 |
|
|
2082 |
|
(pass-if (= #x-100000000000000000000000000000000 |
2083 |
|
(lognot #xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF))) |
2084 |
|
(pass-if (= #xFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF |
2085 |
|
(lognot #x-100000000000000000000000000000000)))) |