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