cl-pulseaudio：Common Lisp的PulseAudio绑定

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 )))) (pulseaudio:with-audio-stream (stream :sample-format :u8 :channels 1 ) ( loop :for i :from 0 :below (length buffer) :for s