anchor.diff:  	     (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 {}"
  -  )
  +partial public class FactoryEconomy : BuildingEconomy, IGUI {}")
  +(create-test-defun *code-test-class-ast-tree* ((class-sym? "class-declaration") (class-visibility-sym? "class-visibility")
  +					       (class-name-sym? "class-name") (class-inheritances-sym? "class-inheritances"))
  +  ((test-node class-sym? (test-some-subnode (test-node class-visibility-sym? (test-data (list "partial" "public")))))
  +   (test-node class-sym? (test-some-subnode (test-node class-name-sym? (test-car-data "FactoryEconomy"))))
  +   (test-node class-sym? (test-some-subnode (test-node class-inheritances-sym? (test-data (list "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: 		   (handler-case (funcall (funcall test-ast-tree test-fn) (funcall parse-code parsed-code))
  		     (ast-node-mismatch-error (condition)
  		       (format t "~S" (ast-node-space::text condition)) nil)))))
      (and (funcall t-test #'*code-test-variables-simple-ast-tree* *code-test-variables-simple*))))
  
  "
  
  
negative.code: 	 (funcall node-test node))))
  (defun test-some-subnode (test)
    (lambda (node) (some test (subnodes node))))
  (defun test-car-data (test-data &optional (test-fn #'equal))
    (lambda (node) (funcall test-fn test-data (car (data-from-ast-node node)))))
  (defun test-data (test-data &optional (test-fn #'equal))
    (lambda (node) (funcall test-fn test-data (data-from-ast-node node))))
  (defun **Macro-template-function** ()
    (with-is-symbol ((variable-sym? "variable-name")
  		   (class-variable-sym? "class-variable"))
  