anchor.diff:  
   (defmethod gtools:graph-type-label-test-predicate ((type (eql 'complex-graph)))
     (labels ((site-test (test y)
  -             (etypecase test
  -               (null t)
  -               (atom (typecase y
  -                       (atom (eql test y))
  -                       (list (find test y :test #'equal))))
  -               (cons
  -                (let ((test-labs (rest test)))
  -                  (ecase (first test)
  -                    (AND   (null (set-difference test-labs y
  -                                                 :test #'logical-test)))
  -                    (OR    (some (lambda (lab)
  -                                   (member lab test-labs))
  -                                 y :test #'equal))
  -                    (NOT   (not (site-test `(or ,@test-labs) y))))))))
  +             (or (eq test '*)
  +                 (etypecase test
  +                   (null t)
  +                   (atom (typecase y
  +                           (atom (eql test y))
  +                           (list (find test y :test #'equal))))
  +                   (cons
  +                    (let ((test-labs (rest test)))
  +                      (ecase (first test)
  +                        (AND   (null (set-difference test-labs y
  +                                                     :test #'logical-test)))
  +                        (OR    (some (lambda (lab)
  +                                       (member lab test-labs))
  +                                     y :test #'equal))
  +                        (NOT   (not (site-test `(or ,@test-labs) y)))))))))
   
              (value-test (test value)
                (typecase test
  
positive.code: ;;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  ;;;; THE SOFTWARE.
  
  ;;; $Id: species-type.lisp,v 1.39 2008/05/01 19:22:30 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  
negative.code:            (complex-graph-label-test-predicate (test glabel)
               (cond
                 ((symbolp test)
                  (or (and (wildcard-monomer-symbol-p test) (symbolp glabel))
                      (eq test glabel)))
  
                 ((wildcard-label-p test)
                  (if (site-label-p glabel)
                      (wildcard-test test glabel)))
  
                 ((site-label-p test)
                  (and (site-label-p glabel)
  