;;;; number-limits-test

(require-extension int-limits)
(require-extension float-limits)

(print "** long long " (if (positive? long-long-size) "supported" "unsupported") " **")
(print "** unsigned long long " (if (positive? unsigned-long-long-size) "supported" "unsupported") " **")

#;(print "** long double " (if (fp= maximum-long-double maximum-long-double) "supported" "unsupported") " **")

(assert (fp= maximum-double maximum-flonum))
(assert (fp= minimum-double minimum-flonum))