anchor.diff:                        address-zu-int))
            (gefunden (assoc address *status* :test #'equalp))) 
       (if (null gefunden)
  -        (format t "~%OSC routing not gefunden")
  +        (format t "~%OSC ROUTING NOT GEFUNDEN")
           (progn (rplacd gefunden  value)
                  (format t "~%=> ~S" gefunden)
   	       ))
  
positive.code: ;; (async-shell-command "ssh -fN -L 4004:localhost:4004 pi@mut.dlinkddns.com")
  
  ;; OSC HANDLER 
  ;#run.0
  (defparameter *status* '((1 . "stp")(2 . "stp")(3 . "stp")(4 . "stp")(5 . "stp")(6 . "stp")(7 . "stp")(8 . "stp")
                           (9 . "stp")(10 . "stp")(11 . "stp")(12 . "stp")(13 . "stp")(14 . "stp")(15 . "stp")(16 . "stp")
                           ("kali" . 0) ("stm" . 0) ("NULL" . 0) ("netz" . 0)
                           ("each" . 0) ("bewegend" . 0)))
  ;(assoc "kali" *status* :test #'equalp)
  ;(assoc 0 *status* :test #'equalp)
  
  
negative.code: (defun warte-alle-stop ( )
    "warte bis alle stop"
    (process-wait "ALLE-WARTE" #'alle-stop-p)
    (format t "GESTOPPT ALLE")
    't)
  
  ;; z.B.
  