Update of /project/beirc/cvsroot/beirc In directory clnet:/tmp/cvs-serv10401
Modified Files: sound-player.lisp Log Message: In the introduction of the SBCL run-program code, I introduced a syntax error. Fixed now.
--- /project/beirc/cvsroot/beirc/sound-player.lisp 2006/04/07 01:42:56 1.1 +++ /project/beirc/cvsroot/beirc/sound-player.lisp 2006/04/07 15:43:15 1.2 @@ -24,6 +24,7 @@ (let (sound-stream pid) #+allegro (let (bogon) + (declare (ignore bogon)) (multiple-value-setq (sound-stream bogon pid) (excl:run-shell-command sound-player-cmd :wait nil :input :stream :output "/dev/null" :if-output-exists :append :error-output "/dev/null" :if-error-output-exists :append))) @@ -41,7 +42,6 @@ "Don't know how to start a beirc sound server for this lisp. Feel free to supply one.") (setf *default-sound-player* nil) (return-from start-sound-server nil)) - (declare (ignore bogon)) (setf *sound-server-pid* pid *sound-server-stream* sound-stream)) ))