anchor.diff:      (if (null gefunden)
           (format t "~%OSC ROUTING NOT GEFUNDEN~%")
           (progn (rplacd gefunden  value)
  -               (format t "~&=> ~S~%" gefunden)))
  +               (format t "~&-> ~S~%" gefunden)))
       gefunden))
   
   (defun osc-router-loop ()
  
positive.code:        ((<= (length sonst) 16)
  	(x-warte was)
  	(x-warte sonst)
  	(format t "FER")
  	't)
      (x-warte was)))
  
  
negative.code: ;;; WIRING >>STARTX<< Y COMMON LISP
  ;;; SINCE FEB. 2015
  
  (defvar *startx-ip* "localhost")
  (defvar *osc-port* 9000)
  (defvar *osc-port-r* 9001)
  (defvar *socket-s* nil)
  (defvar *socket-r* nil)
  
  
  ;; helper (range)
  (defun range (min max &optional (step 1))
  