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

change make-peername-string to accept a device not socket

Browse source
This commit is contained in:
Jamie Forth 2015-07-10 16:33:56 +01:00
parent 57a867f119
commit 5568554056
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
devices/socket-functions.lisp
View file

@ -16,10 +16,11 @@
(defun make-udp-socket ()
(make-instance 'inet-socket :type :datagram :protocol :udp))
(defun make-peername-string (socket)
(multiple-value-bind (addr port)
(socket-peername socket)
(make-addr+port-string addr port)))
(defun make-peername-string (osc-device)
(when (socket osc-device)
(multiple-value-bind (addr port)
(socket-peername (socket osc-device))
(make-addr+port-string addr port))))
(defun make-name-string (osc-device)
(when (socket osc-device)