;; write accessor function for modification ;; of closure slots freq1 and freq2 (bind-func change_freq (lambda (freq1 freq2) (dsp.freq1:SAMPLE freq1) (dsp.freq2:SAMPLE freq2)))