[beirc-cvs] CVS beirc
afuchs
afuchs at common-lisp.net
Sun Apr 9 09:32:42 UTC 2006
Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv6956
Modified Files:
sound-player.lisp
Log Message:
Make sound-server functions work with sbcl:
* add :wait nil to run-program invocation,
* use the sb-ext package prefix where needed,
* store the process structure instead of the PID in the *s-s-pid*
variable and
* kill & wait for the process correctly
--- /project/beirc/cvsroot/beirc/sound-player.lisp 2006/04/07 15:43:15 1.2
+++ /project/beirc/cvsroot/beirc/sound-player.lisp 2006/04/09 09:32:42 1.3
@@ -33,9 +33,9 @@
(let ((p
(sb-ext:run-program "/bin/sh"
(list "-c" sound-player-cmd)
- :input :stream :output nil :error nil)))
- (setf sound-stream (process-input p)
- pid (process-pid p)))
+ :input :stream :output nil :error nil :wait nil)))
+ (setf sound-stream (sb-ext:process-input p)
+ pid p))
#-(or allegro sbcl)
(progn
(cerror "Just reset *default-sound-player* to NIL and run without sounds."
@@ -51,7 +51,9 @@
OS subprocess."
(when *sound-server-pid*
#+sbcl
- (sb-posix:kill *sound-server-pid* sb-posix:sigkill)
+ (progn
+ (sb-ext:process-kill *sound-server-pid* sb-posix:sigkill)
+ (sb-ext:process-wait *sound-server-pid* t))
#+allegro
(progn
(close *sound-server-stream*)
More information about the Beirc-cvs
mailing list