anchor.diff:  
   (defparameter *code-test-variables-simple-tokens* (list "using" "UnityEngine" ";" "using" "UnityEngine" ";" "partial" "public" "class" "FactoryEconomy" ":" "BuildingEconomy" "," "IGUI" "{" "int" "c" ";" "private" "int" "b" "=" "2" ";" "private" "int" "a" ";" "}" ))
   
  -
  -;;(test-composer (((is-var-sym? "variable-name") (is-class-sym? "class-variable"))
  -;;;		((test same-node-symbol? ())))
   (defmacro with-is-symbol (binds &body body)
     (let ((symbols (mapcar #'(lambda (pair) (gensym)) binds)))
       `(let* (,@(mapcar #'(lambda (pair symbol)
  
positive.code:   `(when (not,place)
       (setf ,place (funcall ,test ,node))))
  
  (defun *code-test-variables-simple-ast-tree* (parsed-tree)
    (let ((variable-sym (make-ast-symbol "variable-name"))
  	(class-variable-sym (make-ast-symbol "class-variable")))
      ((lambda (node)
         (print-node node)
         (and (same-node-symbol? (symbol-from-ast-node node) class-variable-sym)
  		(some #'(lambda (subnode) (and (same-node-symbol? (symbol-from-ast-node subnode)
  								 variable-sym)
  					       (equal "a" (car (data-from-ast-node subnode)))))
  		      (subnodes node))))
       parsed-tree)))
  
  (defun *code-test-variables-simple-ast-tree2* (node)
    (with-is-symbol ((variable-sym?  "variable-name")
  		   (class-variable-sym?  "class-variable"))
      (let ((test1 #'(lambda (node)
  		     (and (funcall class-variable-sym? node)
  			  (some #'(lambda (subnode) (and (funcall variable-sym? subnode)
  							 (equal "a" (car (data-from-ast-node subnode)))))
  				(subnodes node))))))
        ((lambda (node)(and (funcall test1 node)))
         node))))
  
  (defun test-node (node-identifier-fn node-test)
    (lambda (node)
      (and (funcall node-identifier-fn node)
  
negative.code: 	  (and test1 test2)))))
  
  ;;(create-test-defun *code-test-variables-simple-ast-tree4* ((variable-sym? "variable-name") (class-variable-sym? "class-variable"))
  ;;  ((test-node class-variable-sym? (test-some-subnode (test-node variable-sym? (test-car-data "a"))))
  ;;   (test-node class-variable-sym? (test-some-subnode (test-node variable-sym? (test-car-data "b"))))))
  ;;(funcall (exist-node-in-tree (test1111)) (parse-csharp (tokenize-csharp-code *code-test-variables-simple*)))
  (defmacro create-test-defun (name variables-check tests)
    (let ((symbols (mapcar #'(lambda (pair) (declare (ignore pair)) (gensym)) tests)))
  