((/quadratic-reciprocity/mersenne.lisp::m (nil nil (1-) nil nil nil nil) (nil nil nil (expt) nil nil nil) ((p) (2) 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)) (/quadratic-reciprocity/mersenne.lisp::least-divisor-2 (nil nil nil nil (if) nil nil) ((nil) nil nil nil (if) (and) nil) ((n) nil (integerp integerp) (< <= >) (if) nil nil) ((n k k k n n k) (1) nil (* divides recursive-call) nil nil nil) ((k k k n n) nil (1+) nil nil nil nil) ((k) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))