anchor.diff:  (defun warte-alle-stop ( )
     "warte bis alle stop"
     (process-wait "ALLE-WARTE" #'alle-stop-p)
  +  (format t "gestoppt alle")
     't)
   ;; z.B.
   ;; (progn (x "wualamosimosi")
  -;; 		(sleep 0.1) ; braucht zwsn zeit
  +;; 		(sleep 0.1) ; braucht zwsn zeit,weil zu schnell die 'warte-alle-stop 
   ;; 		(warte-alle-stop))
   
  -(defun lang-x (lang-string &optional maxi-x aksel-x)
  -  (do (cur))
  -)
  -  
  +(defparameter *satz-dauer* 1.5)
  +(defparameter *zwsn* 0.1)
  +
  +(defun x-warte (∂)
  +  (progn (x ∂)
  +	 (sleep *zwsn*)
  +	 (warte-alle-stop)
  +	 (sleep *satz-dauer*)
  +	 't))
  +
  +(defun nimm-16 (∂)
  +  (if (> (length ∂) 16)
  +      (subseq ∂ 0 16)
  +      ∂))
  +
  +(defun x-lang (∂ ;; &optional maxi-x aksel-x
  +			     )
  +  (do* ((was (nimm-16 ∂) (nimm-16 sonst))
  +	(sonst (subseq ∂ 16) (subseq sonst 16)))
  +       ((<= (length sonst) 16)
  +	(x-warte was)
  +	(x-warte sonst)
  +	)
  +    (x-warte was)))
  +
  +(defun x-final (∂)
  +  (if (<= (length ∂) 16)
  +      (x ∂)
  +      (x-lang ∂)))
   
   ;; clozure warte
   (defun warte (address value)
  
positive.code:      (progn
         (usocket:socket-send *SOCKET-S* buffer length)
         (format t "->"))))
  
  (defmacro 4startx ()
    `(let ((buffer-r (make-array 20 :element-type '(unsigned-byte 8))))
       (progn
         (format t "-KOM...")
         (osc:decode-message (usocket:socket-receive *socket-r* buffer-r 20)))))
  
  (defun osc-listen (port) 
    "a basic test function which attempts to decode an osc message a given port."
    (let ((s (usocket:socket-connect nil nil :protocol :datagram :element-type '(unsigned-byte 8) :local-host "127.0.0.1" :local-port port))
          (buffer (make-sequence '(vector (unsigned-byte 8)) 1024)))
     ; (socket-bind s #(0 0 0 0) port)
      (format t "listening on localhost port ~A~%~%" port)
      (unwind-protect 
  	(loop do
  	      (usocket:socket-receive s buffer 1024)
  	      (format t "receiveded -=> ~S~%" (osc:decode-bundle buffer)))
        (when s (usocket:socket-close s)))))
  
  (defmacro each/ (pos path)
    "osc path helper"
  
negative.code: ;  (sleep 1)
    'FER)
  
  ;; ;; emacs defun
  ;; (defun vue ()
  ;;   (async-shell-command   "open -a vlc --args rtsp://mut.dlinkddns.com:554/ch0_1.h264 &"))
  