(defmacro gen-float-generator (name type min max) `(defgenerator ,name (&key (max ,max) (min ,min)) (+ min (random ))))