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: (in-package :cl-walker-test)
  
  (defsuite* (test/lexenv :in test))
  
  ;; TODO would be better to use macroexpand-all for this, because stefil's errors get to cl:compile
  ;; which aborts at the first failure and skips the other assertions
  
negative.code:                 (z 3))
              (declare (ignore z))
              (macrolet ((dummy (&environment env)
                           (is (equal-any (collect-macros-in-lexenv env)
                                          '(dummy m1 m2) '(dummy m2 m1)))
                           (bind ((macros 0))
                             (do-macros-in-lexenv (env name fn)
                               (is (and (symbolp name)
  