anchor.diff:  (defun mach-socket-s ()
     "FUER BEFEHL, SEND"
     (defparameter  *socket-s* (usocket:socket-connect
  -                                  *startx-ip* *startx-osc-port*
  +                                  *startx-ip* *osc-port*
                                     :protocol :datagram
                                     :element-type '(unsigned-byte 8))))
   
  
positive.code:     (if (null gefunden)
          (format t "~%OSC ROUTING NOT GEFUNDEN~%")
          (progn (rplacd gefunden  value)
                 (format t "~&=> ~S~%" gefunden)))
      gefunden))
  
  (defun osc-router-loop ()
  
negative.code:   (seq-16-d "stop")
    (abal 0))
  
  
  