From 5f5de9c1c22ebc63973b1c1b8ccc0a2afa54a56c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Alejandro=20R=20Sede=C3=B1o?= <asedeno@google.com>
Date: Mon, 29 Apr 2013 14:35:31 -0400
Subject: [PATCH] utilities: Introduce ILOGBITP, a LOGBITP for FIXNUMS

---
 utilities.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/utilities.lisp b/utilities.lisp
index d524371..512a9f8 100644
--- 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
 
-- 
2.45.2