diff --git a/osc-examples.lisp b/osc-examples.lisp index 4c10c3f..63fbd08 100644 --- a/osc-examples.lisp +++ b/osc-examples.lisp @@ -38,7 +38,8 @@ (in-package :osc-examples) (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 :local-port port :local-host #(127 0 0 1) @@ -53,7 +54,8 @@ (when s (socket-close s))))) (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 :protocol :datagram :element-type '(unsigned-byte 8))) @@ -64,7 +66,8 @@ (when s (socket-close s))))) (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 :local-port listen-port :local-host #(127 0 0 1)