960 |
(push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) & (#1))") |
(push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) & (#1))") |
961 |
(get 'logand 'inline-always)) |
(get 'logand 'inline-always)) |
962 |
|
|
963 |
|
;;LOGANDC1 |
964 |
|
(push '((fixnum fixnum) fixnum #.(flags rfa)"(~(#0) & (#1))") |
965 |
|
(get 'logandc1 'inline-always)) |
966 |
|
|
967 |
|
;;LOGANDC2 |
968 |
|
(push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) & ~(#1))") |
969 |
|
(get 'logandc2 'inline-always)) |
970 |
|
|
971 |
;;LOGIOR |
;;LOGIOR |
972 |
(push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))") |
(push '((fixnum fixnum) fixnum #.(flags rfa)"((#0) | (#1))") |
973 |
(get 'logior 'inline-always)) |
(get 'logior 'inline-always)) |