anchor.diff:                           (is (equal '(dummy m1 m2)
                                       (sort-by-symbol-name
                                        (collect-macros-in-lexenv env))))
  +                         (bind ((macros 0))
  +                           (do-macros-in-lexenv (env name fn)
  +                             (is (and (symbolp name)
  +                                      (eq (symbol-package name) ,*package*)))
  +                             (is (functionp fn))
  +                             (incf macros))
  +                           (is (= macros 3)))
                            (is (find-macro-in-lexenv 'm1 env))
                            (is (not (find-macro-in-lexenv 'f1 env)))
                            (is (not (find-macro-in-lexenv 'a env)))
  
positive.code:                          (is (equal '(a b)
                                      (sort-by-symbol-name
                                       (collect-symbol-macros-in-lexenv env))))
                           (is (find-symbol-macro-in-lexenv 'a env))
                           (is (not (find-symbol-macro-in-lexenv 'm1 env)))
                           (is (not (find-symbol-macro-in-lexenv 'f1 env)))
  
negative.code:                          (is (equal '(x y)
                                      (sort-by-symbol-name
                                       (collect-variables-in-lexenv env))))
                           (bind ((ignored 0)
                                  (non-ignored 0))
                             (do-variables-in-lexenv (env name ignored?)
                               (is (and (symbolp name)
                                        (eq (symbol-package name) ,*package*)))
                               (if ignored?
                                   (incf ignored)
                                   (incf non-ignored)))
                             (is (= ignored 1))
                             (is (= non-ignored 2)))
                           (is (equal '(x y z)
                                      (sort-by-symbol-name
                                       (collect-variables-in-lexenv env :include-ignored t))))
  