From 4b2e293a48d394e9749fcf45b70f3eb7a6bccb28 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Wed, 9 Jan 2013 00:40:38 +0100
Subject: [PATCH] Added optimizer for LDB-TEST

---
 src/cmp/cmpopt-bits.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/cmp/cmpopt-bits.lsp b/src/cmp/cmpopt-bits.lsp
index 0203bc8ac..5d3a35c21 100644
--- a/src/cmp/cmpopt-bits.lsp
+++ b/src/cmp/cmpopt-bits.lsp
@@ -41,6 +41,9 @@
 			    (ash ,integer %pos)))))))
       whole))
 
+(define-compiler-macro ldb-test (&rest args)
+  `(zerop (ldb ,@args)))
+
 ;;;
 ;;; ASH
 ;;; Bit fiddling. It is a bit tricky because C does not allow