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: (defun kill-socket-s ()
    (usocket:socket-close *socket-s*))
  
  ;; (defmacro mach-socket-r (n)
  ;;   "*SOCKET-N* :port 9000 + N"
  ;;   `(set (intern (format nil "*SOCKET-~A*" ,n))
  ;;        (usocket:socket-connect nil nil :protocol :datagram :element-type '(unsigned-byte 8) :local-host "127.0.0.1" :local-port (+ 9000 ,n))))
  
  ;; (defun kill-socket-r (n)
  ;;   (usocket:socket-close (eval (intern (format nil "*SOCKET-~A*" n)))))
  
  (defun mach-socket-r ()
    (defparameter *socket-r*
      (usocket:socket-connect nil nil :protocol :datagram :element-type '(unsigned-byte 8) :local-host "127.0.0.1"
  
negative.code:      (progn
         (usocket:socket-send *SOCKET-S* buffer length)
         (format t "->"))))
  
  (defmacro each/ (pos path)
    "osc path helper"
  