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

make sure nil is not passed to socket-bind now that sbcl type-checks

Browse source 
the arguments
This commit is contained in:
Jamie Forth 2015-07-07 17:13:42 +01:00
parent 59c32ec6b5
commit 95e8643778
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
devices/transmitter.lisp
View file

@ -28,7 +28,9 @@
(if (not (device-active-p transmitter))
(progn
(let ((socket (make-socket (protocol transmitter))))
(socket-bind socket #(127 0 0 1) port)
(if port
(socket-bind socket #(127 0 0 1) port)
(socket-bind socket))
(socket-connect socket host-address host-port)
(socket-make-stream socket
:input nil :output t