8 lines
151 B
Text
8 lines
151 B
Text
|
(defun bitwise (a b)
|
||
|
|
(list (logand a b)
|
||
|
|
(logior a b)
|
||
|
|
(logxor a b)
|
||
|
|
(lognot a)
|
||
|
|
(ash a b)
|
||
|
|
(ash a (- b))))
|