7 lines
151 B
Text
7 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))))
|