]> asedeno.scripts.mit.edu Git - cl-protobufs.git/commitdiff
projects / cl-protobufs.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c80b657)
utilities: Introduce ILOGBITP, a LOGBITP for FIXNUMS
authorAlejandro R Sedeño <asedeno@google.com>
Mon, 29 Apr 2013 18:35:31 +0000 (14:35 -0400)
committerAlejandro R Sedeño <asedeno@google.com>
Wed, 29 May 2013 22:02:07 +0000 (18:02 -0400)
utilities.lisp patch | blob | history

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
 
Common Lisp Protocol Buffer implementation. WARNING: Topic branches in this repo are subject to indiscriminate rebasing. Canonical version is at common-lisp.net.