(defun left-fun (float)
 (values (apply (make-sine 440) `(,float))))
(defun right-fun (float)
 (values (apply (make-sine 660) `(,float))))

(setq *lambda-1* (my-get-note "test-note-1" 1.2))
(funcall *lambda-1*)

(defun left-fun (float)
 (values (apply (make-sine 110) `(,float))))
(defun right-fun (float)
 (values (apply (make-sine 55) `(,float))))

(setq *lambda-2* (my-get-note "test-note-2" 3.6))
(funcall *lambda-2*)
(funcall *lambda-1*)
(funcall *lambda-2*)

(quit)