anchor.diff:  		   (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*))))
  +    (and (funcall t-test #'*code-test-variables-simple-ast-tree* *code-test-variables-simple*)
  +	 (funcall t-test #'*code-test-class-ast-tree* *code-test-class*))))
   
   "
   
  
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"))))))
  ;;(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)))
  
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"))
  