((/centaur/gl/g-logbitp.lisp::g-logbitp-of-numbers (nil nil nil (b*) nil nil nil) (nil nil nil nil (((mv arn ard ain aid) (general-number-components a)) if) nil nil) (nil nil ((mv brn brd bin bid) (mv aintp aintp-known) (mv bintp bintp-known) mk-g-boolean) (and g-apply) nil nil nil) ((bintp-known aintp-known) nil (general-number-components quote) (list) (if if logbitp-n2v) nil nil) ((b logbitp a b) (1) nil (equal mv mv equal mv mv) (bfr-ite-bss-fn bfr-ite-bss-fn) nil nil) ((ard t nil nil brd t nil nil arn nil bintp brn nil) nil (quote quote) (bfr-or bfr-or bfr-and) nil nil nil) ((t t aintp) nil (bfr-not) (=-ss =-uu =-ss =-uu) nil nil nil)))