chickadee » srfi-60 » logtest

logtest j kprocedure
any-bits-set? j kprocedure

Example:

(logtest j k) == (not (zero? (logand j k)))

(logtest #b0100 #b1011) ; => #f
(logtest #b0100 #b0111) ; => #t