cl-pulseaudio Common Lisp的绑定。 安装 待定 用法 ; ; play 440Hz sine wave for 1 second ( flet ((sine-to-byte (x) (coerce (floor (* 255 (+ 0.5 (/ (sin x) 2 )))) '(unsigned-byte 8 )))) ( let ((buffer (make-array 44100 :element-type '(unsigned-byte 8