anchor.diff:  ;; (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)))
  +
  +(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)
   
  
positive.code:   (stm 0 0)
    (sleep 1)
    (netz 0)
    (format t "agur!"))
  
  (defun foo (stepper-lst abs &optional maxi-x aksel-x)
    (progn (maxi stepper-lst maxi-x)
  
negative.code:                       address-zu-int))
           (gefunden (assoc address *status* :test #'equalp))) 
      (if (null gefunden)
          (format t "~%OSC ROUTING NOT GEFUNDEN")
          (progn (rplacd gefunden  value)
                 (format t "~%=> ~S" gefunden)
  	       ))
  