*coerce-contracted-interval-rationals-to-floats*

Purpose
Control automatic coercion of non-integer rationals to floats when an interval is contracted into a non-integral point range by expand-interval and nexpand-interval.

Package   :gbbopen

Module   :gbbopen-core

Value type   A generalized boolean

Initial value   nil

See also
    expand-interval
    nexpand-interval

Examples

  > (let ((*coerce-contracted-interval-rationals-to-floats* 't))
       (expand-interval '(2 . 5) -3))
  (3.5 . 3.5)
  > (let ((*coerce-contracted-interval-rationals-to-floats* nil))
       (expand-interval '(2 . 5) -3))
  (7/2 . 7/2)
  >

*coerce-contracted-interval-rationals-to-floats*