;;Point to the
OM package:
(in-package :om)
;;Evaluate the
function:
(defun
random-value (low high)
(cond
((= low high) (min low
high))
((or (floatp low)
(floatp high)) (+
(min low high) (random (abs (- high low)))))
((not (or (floatp low)
(floatp high)))
(+ (min low high) (random (1+ (abs (- high low))))))))
;;Try the
following calls:
;;(random-value 0 10.0)
;;(random-value
10.0 0)