utilities: Introduce ILOGBITP, a LOGBITP for FIXNUMS

[cl-protobufs.git] / utilities.lisp

diff --git a/utilities.lisp b/utilities.lisp
index d524371058ec9b1d5901e7fa749bdbbd701eda01..512a9f820b673d5a6fdc5b34b8e5a0bc55245850 100644 (file)
--- a/utilities.lisp
+++ b/utilities.lisp
@@ -72,6 +72,8 @@
 (defmacro ildb (bytespec value)
   `(the fixnum (ldb ,bytespec (the fixnum ,value))))
 
+(defmacro ilogbitp (index integer)
+  `(logbitp ,index (the fixnum ,integer)))
 
 ;;; String utilities