`((inst slwi temp temp ,(1- (integer-length bits)))))
(inst srw result result temp)
(inst andi. result result ,(1- (ash 1 bits)))
`((inst slwi temp temp ,(1- (integer-length bits)))))
(inst srw result result temp)
(inst andi. result result ,(1- (ash 1 bits)))