anchor.diff:  ;;; WIRING >>STARTX<< Y COMMON LISP
   ;;; SINCE FEB. 2015
   
  -(defparameter *startx-ip* "localhost")
  -(defparameter *startx-osc-port* 9000)
  -(defparameter *socket-s* nil)
  -(defparameter *socket-r* nil)
  -(defparameter *osc-port-r* 9001)
  +(defvar *startx-ip* "localhost")
  +(defvar *osc-port* 9000)
  +(defvar *osc-port-r* 9001)
  +(defvar *socket-s* nil)
  +(defvar *socket-r* nil)
  +
   
   ;; helper (range)
   (defun range (min max &optional (step 1))
  
positive.code:        ((<= (length sonst) 16)
  	(x-warte was)
  	(x-warte sonst)
  	(format t "FER")
  	't)
      (x-warte was)))
  
  
negative.code:   (seq-16-d "stop")
    (abal 0))
  
  
  