anchor.diff:          ((zerop pos) (alle aksel accel-var))
           ((not (null pos))(2startx (each/ pos "accel") accel-var))
           (t nil)))
  +
   (defun aksel-lst (lst)
     (do ((cur lst (cdr cur))
          (i 1 (+ 1 i)))
  
positive.code: (defun warte-alle-stop ( )
    "warte bis alle stop"
    (process-wait "ALLE-WARTE" #'alle-stop-p)
    't)
  ;; z.B.
  ;; (progn (x "wualamosimosi")
  ;; 		(sleep 0.1) ; braucht zwsn zeit
  ;; 		(warte-alle-stop))
  
  (defun lang-x (lang-string &optional maxi-x aksel-x)
    (do (cur))
  )
    
  
  ;; clozure warte
  (defun warte (address value)
  
negative.code: (defun kill-socket-s ()
    (usocket:socket-close *socket-s*))
  
  (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"
  