anchor.diff:  
   (test illegale-specifing-case-test
     (signals simple-error
  -    (with-metap-ensured (defclass test2-2 (test2-mixin) () (:metaclass meta1))))
  +    (defclass test2-2 (test2-mixin) () (:metaclass meta1)))
     (signals simple-error
  -    (with-metap-ensured (defclass test2-3 (test2-mixin) () (:metaclass meta2)))))
  +    (defclass test2-3 (test2-mixin) () (:metaclass meta2))))
  
positive.code: (in-package :metap-test)
  
  (in-suite* all)
  
  (defclass a () ())
  (defclass b (a) ())
  
negative.code: (register-m1-m2-pair 'test1-mixin 'meta1)
  (register-m1-m2-pair 'test2-mixin 'meta2)
  
  (defclass test1 (test1-mixin) ())
  (defclass test2 (test2-mixin) ())
  
  (test meta-propagation-test
    (is (eq (class-of (find-class 'test2)) (find-class 'meta2)))
  