anchor.diff:            t22
               (block b2
                 (macrolet ((dummy (&environment env)
  -                           (is (equal '(t21 t22 t1 t2)
  -                                      (collect-tags-in-lexenv 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)
  
positive.code:                 (z 3))
              (declare (ignore z))
              (macrolet ((dummy (&environment env)
                           (is (equal '(dummy m1 m2)
                                      (collect-macros-in-lexenv env)))
                           (bind ((macros 0))
                             (do-macros-in-lexenv (env name fn)
                               (is (and (symbolp name)
  
negative.code: (in-package :cl-walker-test)
  
  (defsuite* (test/lexenv :in test))
  
  (defun equal-any (item &rest args)
    (some (lambda (a) (equal item a)) args))
  
  ;; 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
  