From 2b250fb46ce513b9cddf2d07da7f46d2d92d4897 Mon Sep 17 00:00:00 2001
From: rick <sasquatch@rickvenn.com>
Date: Thu, 30 Nov 2017 15:23:13 -0800
Subject: [PATCH] fixup after testing on ccl

---
 osc-examples.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/osc-examples.lisp b/osc-examples.lisp
index edad7d4..a7c363b 100644
--- a/osc-examples.lisp
+++ b/osc-examples.lisp
@@ -23,7 +23,7 @@
 ;;
 ;;  send a test message to localhost port 6668
 ;;
-;;   (osc-send-test "localhost" 6668)
+;;   (osc-send-test #(127 0 0 1) 6668)
 ;;
 ;;  listen on port 6667 and send to 10.0.89:6668
 ;;                     (note the ip# is formatted as a vector)
@@ -35,14 +35,14 @@
 (eval-when (:compile-toplevel :load-toplevel)
   (ql:quickload :osc)
   (ql:quickload :usocket)
-  (use-package :osc)
-  (use-package :usocket))
+  (defpackage osc-examples (:use :cl :osc :usocket)))
+(in-package :osc-examples)
 
-
-(defun osc-listen-test (port)
+(defun osc-receive-test (port)
   "a basic test function which attempts to decode an osc message a given port."
   (let ((s (socket-connect nil nil
                            :local-port port
+                           :local-host #(127 0 0 1)
                            :protocol :datagram
                            :element-type '(unsigned-byte 8)))
         (buffer (make-sequence '(vector (unsigned-byte 8)) 1024)))
@@ -60,7 +60,7 @@
                            :protocol :datagram
                            :element-type '(unsigned-byte 8)))
         (b (osc:encode-message "/foo/bar" "baz" 1 2 3 (coerce PI 'single-float))))
-    (format t "listening on localhost port ~A~%~%" port)
+    (format t "sending to ~a on port ~A~%~%" host port)
     (unwind-protect
          (socket-send s b (length b))
       (when s (socket-close s)))))