zzkt/osc
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Activity Actions

add simple-stream-error handler in osc-device-cleanup

Browse source
This commit is contained in:
Jamie Forth 2015-07-10 16:26:00 +01:00
parent 0e4509bc75
commit 7d43627bcc
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
devices/device.lisp
View file

@ -122,5 +122,9 @@
(format t "~%OSC device stopped: ~A~%"
(name osc-device)))
(when (socket osc-device)
(socket-close (socket osc-device))
(handler-case
(socket-close (socket osc-device) :abort t)
(sb-int:simple-stream-error ()
(when (debug-mode osc-device)
(warn "Device ~A gone away." (name osc-device)))))
(set-socket nil osc-device))))