[beirc-cvs] CVS beirc

[rgoldman]

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))
     ))