anchor.diff:  		 binds
   		 symbols))
          ,@body)))
  -
   (defmacro test-and-set (place test node)
     `(when (not,place)
        (setf ,place (funcall ,test ,node))))
  -
   (defun test-node (node-identifier-fn node-test)
     (lambda (node)
       (and (funcall node-identifier-fn node)
  
positive.code:   (lambda (node) (some test (subnodes node))))
  (defun test-car-data (test-data)
    (lambda (node) (equal test-data (car (data-from-ast-node node)))))
  (defmacro test-and-set (place test node)
    `(when (not,place)
       (setf ,place (funcall ,test ,node))))
  
  (defun **Macro-template-function** ()
    (with-is-symbol ((variable-sym? "variable-name")
  		   (class-variable-sym? "class-variable"))
  
negative.code: (in-package :csharp-parser) 
  (declaim (optimize (debug 3)))
  ;; (in-package :csharp-parser)
  ;; (defparameter test (parse-csharp (tokenize-csharp-code *code-test-class*)))
  ;; command for generating test matches (print-tokens (tokenize-csharp-code *code-test-variables-advanced* ))
  ;; (print-tokens (tokenize-csharp-code *code-test-variables-simple* ))
  ;; (parse-csharp (tokenize-csharp-code *code-test-variables-simple*))
  ;;(match-shallow-ast-node (cadr(cadddr(parse-csharp(tokenize-csharp-code *code-test-variables-advanced*)))) '(class-visibility "partial" "public"))
  (defmacro with-is-symbol (binds &body body)
    (let ((symbols (mapcar #'(lambda (pair) (gensym)) binds)))
      `(let* (,@(mapcar #'(lambda (pair symbol)
  