anchor.diff:                                    *startx-ip* *startx-osc-port*
                                     :protocol :datagram
                                     :element-type '(unsigned-byte 8))))
  -(
  -defun kill-socket-s ()
  +
  +(defun kill-socket-s ()
     (usocket:socket-close *socket-s*))
   
   (defun mach-socket-r ()
  
positive.code:   "warte bis alle stop"
    (sleep 0.1) ; braucht zwsn zeit,weil zu schnell die 'warte-alle-stop, inklusive
    (process-wait "ALLE-WARTE" #'alle-stop-p)
    (format t "GESTOPPT ALLE")
    't)
  
  (defparameter *satz-dauer* 2)
  
negative.code:           (length (array-dimension buffer 0)))
       (progn
         (usocket:socket-send *SOCKET-S* buffer length)
         (format t "~&<-~%"))))
  
  (defmacro each/ (pos path)
    "osc path helper"
  