remind user of the docs of ip addr syntax

This commit is contained in:
rick 2017-12-01 09:47:42 -08:00 committed by nik gaffney
parent 2b250fb46c
commit 85cc0ebeed
Signed by: nik
GPG key ID: 989F5E6EDB478160

View file

@ -39,7 +39,8 @@
(in-package :osc-examples) (in-package :osc-examples)
(defun osc-receive-test (port) (defun osc-receive-test (port)
"a basic test function which attempts to decode an osc message a given port." "a basic test function which attempts to decode an osc message on given port.
note ip#s need to be in the format #(127 0 0 1) for now.. ."
(let ((s (socket-connect nil nil (let ((s (socket-connect nil nil
:local-port port :local-port port
:local-host #(127 0 0 1) :local-host #(127 0 0 1)
@ -55,7 +56,8 @@
(defun osc-send-test (host port) (defun osc-send-test (host port)
"a basic test function which sends osc test message to a given port/hostname." "a basic test function which sends osc test message to a given port/hostname.
note ip#s need to be in the format #(127 0 0 1) for now.. ."
(let ((s (socket-connect host port (let ((s (socket-connect host port
:protocol :datagram :protocol :datagram
:element-type '(unsigned-byte 8))) :element-type '(unsigned-byte 8)))
@ -67,7 +69,8 @@
(defun osc-reflector-test (listen-port send-host send-port) (defun osc-reflector-test (listen-port send-host send-port)
"reflector. listens on a given port and sends out on another." "reflector. listens on a given port and sends out on another.
note ip#s need to be in the format #(127 0 0 1) for now.. ."
(let ((in (socket-connect nil nil (let ((in (socket-connect nil nil
:local-port listen-port :local-port listen-port
:protocol :datagram :protocol :datagram