(defun thing (min max &key (check :missing))
  (cond ((< max min)          (thing max min :check check))
        ((eq check :missing)  (thing1 min max)) 
        (t                   (<= min check max))))

(defun thing1 (min max)
  (+ min (* (random 1.0) (- max min))))