anchor.diff:                     (do-seq (x #(1 2 3))
                        (collect x)))))))
   
  -  (test local+progn
  +  (test internal-definitions+progn
       (is (equal '((1) (2))
                  (multiple-value-list
                   (local (with-collectors (xs ys) (xs 1) (ys 2)))))))
   
  -  (test local+symbol-macros
  +  (test internal-definitions+symbol-macros
       (is (equal '(1 1)
                  (let (a b)
                    (local
  
positive.code:                    x)
                   (list a b)))))
  
    (test shadow-symbol-macro-in-symbol-macrolet
      (is (equal (local
                   (define-symbol-macro x 1)
                   (symbol-macrolet ((x 2))
  
negative.code: 
  (suite definitions
    
    (test internal-definitions
      (is (eql 2
               (local
                 (def x 1)
  