lisp way of looping over bits of an integer

来源：https://stackoverflow.com/questions/10445433/lisp-way-of-looping-over-bits-of-an-integer