((/rtl/rel1/support/float.lisp::expo1 (nil nil nil nil (if) nil nil) (nil (0) (1-) nil (and) nil nil) (nil nil (rationalp recursive-call) (< <) nil nil nil) ((x x x) (0 1) nil (*) nil nil nil) ((x) (2) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel1/support/float.lisp::expo2 (nil nil nil nil (if) nil nil) (nil (0) (1+) (and) nil nil nil) (nil nil (rationalp recursive-call) (>=) nil nil nil) ((x x) (2) nil (/) nil nil nil) ((x) (2) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel1/support/float.lisp::expo (nil nil nil nil (cond) nil nil) (nil nil ((not (rationalp x)) (>= (abs x) 1) t) nil nil nil nil) (nil (0) (expo2 expo1) nil nil nil nil) (nil nil (abs abs) nil nil nil nil) ((x x) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel1/support/float.lisp::sgn (nil nil nil nil (if) nil nil) (nil (0) nil (=) (if) nil nil) ((x) (0 -1 1) nil (<) 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)) (/rtl/rel1/support/float.lisp::sig (nil nil nil nil (if) nil nil) (nil (0) (rationalp) nil (if) nil nil) ((x) nil (-) (< *) nil nil nil) ((x x) (0) nil (* expt) nil nil nil) ((x) (2) (-) (expt) nil nil nil) (nil (2) (- expo) nil nil nil nil) ((x) nil (expo) nil nil nil nil)) (/rtl/rel1/support/float.lisp::exactp (nil nil (integerp) nil nil nil nil) (nil nil nil (*) nil nil nil) (nil nil (sig) (expt) nil nil nil) ((x) (2) (1-) nil nil nil nil) ((n) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel1/support/float.lisp::fp+ (nil nil nil (+) nil nil nil) ((x) nil nil (expt) nil nil nil) (nil (2) nil (-) nil nil nil) ((n) nil (1+) nil nil nil nil) (nil nil (expo) nil nil nil nil) ((x) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel1/support/float.lisp::expo-ok-p (nil nil nil (let) nil nil nil) (nil nil ((e (expo x))) (and) nil nil nil) (nil nil (b) (<= <=) nil nil nil) ((e e b) nil nil (expt -) nil nil nil) ((b) (2 1) (1-) nil nil nil nil) ((j) nil nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel1/support/float.lisp::floating-point-p (nil nil nil (and) nil nil nil) (nil nil nil (exactp expo-ok-p) nil nil nil) ((x i x j) 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 nil)) (/rtl/rel1/support/float.lisp::expo-ok-p-+ (nil nil nil (let) nil nil nil) (nil nil ((e (expo x))) (and) nil nil nil) (nil nil (b) (<= <=) nil nil nil) ((e e b) nil nil (expt -) nil nil nil) ((b) (2) (1-) (-) nil nil nil) ((j i) (2) nil nil nil nil nil) (nil nil nil nil nil nil nil)) (/rtl/rel1/support/float.lisp::generalized-floating-point-p (nil nil nil (and) nil nil nil) (nil nil nil (exactp) (expo-ok-p-+) nil nil) ((x i x i j) 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 nil)))