(bind-func xtm_clampf (lambda (a:float mn:float mx:float) (cond ((< a mn) mn) ((> a mx) mx) (#t a))))