(define (clear-sampler sampler . args)
(let ((bank (if (> (length args) 0) (car args) 0))
(cnt 0))
(dotimes (i 128)
(if (> (clear_sample_data_ native (real->integer i) (real->integer bank)) 0)
(set! cnt (+ cnt 1))))
(log-info 'Cleared cnt 'slots 'from 'bank#: ,bank)
(println)
#t))