(nil (/rtl/rel8/support/support/bitn.lisp::not-eric (nil nil nil nil (if) nil nil) (nil (1 0) nil (equal) nil nil nil) ((x) (0) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel8/support/support/bitn.lisp::all-bits-p (nil nil nil nil (if) nil nil) ((t) nil (zp) (and) nil nil nil) ((k) nil nil (or recursive-call) nil nil nil) ((b) nil (1-) (= =) nil nil nil) ((k) (0 1) nil (nth nth) nil nil nil) ((b b) nil (1- 1-) nil nil nil nil) ((k k) nil nil nil nil nil nil)) (/rtl/rel8/support/support/bitn.lisp::sum-b (nil nil nil nil (if) nil nil) (nil (0) (zp) (+) nil nil nil) ((k) nil nil (* recursive-call) nil nil nil) ((b) nil (1-) (expt nth) nil nil nil) ((b k) (2) (1- 1-) nil nil nil nil) ((k k) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))