logbit?

[procedure] logbit? index n

SLIB, Gauche, Guile: (logtest n (ash 1 index))