anchor.diff:                  (z 3))
               (declare (ignore z))
               (macrolet ((dummy (&environment env)
  -                         (is (equal '(a b)
  -                                    (collect-symbol-macros-in-lexenv env)))
  +                         (is (equal-any (collect-symbol-macros-in-lexenv env)
  +                                        '(a b) '(b a)))
                            (bind ((symbol-macros 0))
                              (do-symbol-macros-in-lexenv (env name definition)
                                (is (and (symbolp name)
  
positive.code:             (declare (ignore z))
              (macrolet ((dummy (&environment env)
                           (is (equal '(b2 b1)
                                      (collect-blocks-in-lexenv env)))
                           (bind ((blocks 0))
                             (do-blocks-in-lexenv (env name)
                               (is (and (symbolp name)
                                        (eq (symbol-package name) ,*package*)))
                               (incf blocks))
                             (is (= blocks 2)))
                           (is (find-block-in-lexenv 'b1 env))
                           (is (not (find-block-in-lexenv 'dummy env)))
  
negative.code:           t22
              (block b2
                (macrolet ((dummy (&environment env)
                             (is (equal-any (collect-tags-in-lexenv env)
                                            '(t21 t22 t1 t2) '(t22 t21 t2 t1)))
                             (bind ((tags 0))
                               (do-tags-in-lexenv (env name)
                                 (is (and (symbolp name)
  