anchor.diff:  		       symbols)
   	     (and ,@(mapcar (lambda (sym) sym)
   			    symbols))))))))
  +
  +(defparameter *code-test* 
  +"public void Start(container as List){
  +     return \"ArmyEconomy\";} ")
  +(defparameter *code-test-class-tokens* (list "using" "UnityEngine" ";" "using" "UnityEngine" ";" "partial" "public" "class" "FactoryEconomy" ":" "BuildingEconomy" "," "IGUI" "{" "}"))
  +(defparameter *code-test-class-ast-tree* '((FILE "name") (USING "UnityEngine") (USING "UnityEngine") (CLASS-DECLARATION (CLASS-VISIBILITY "partial" "public") (CLASS-NAME "FactoryEconomy") (CLASS-INHERITANCES "BuildingEconomy" "IGUI"))))
  +(defparameter *code-test-class* 
  +" 
  +using UnityEngine;
  +using UnityEngine;
  +
  +partial public class FactoryEconomy : BuildingEconomy, IGUI {}"
  +  )
   
   (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" ";" "}" ))
   (defparameter *code-test-variables-simple* 
  
positive.code: 	  (test-and-set test1 (test-node class-variable-sym? (test-some-subnode (test-node variable-sym? (test-car-data "a")))) node)
  	  (test-and-set test2 (test-node class-variable-sym? (test-some-subnode (test-node variable-sym? (test-car-data "b")))) node)
  	  (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"))))))
  
negative.code:   (lambda (node) (some test (subnodes node))))
  (defun test-car-data (test-data)
    (lambda (node) (equal test-data (car (data-from-ast-node node)))))
  (defun **Macro-template-function** ()
    (with-is-symbol ((variable-sym? "variable-name")
  		   (class-variable-sym? "class-variable"))
  