anchor.diff:                       (ensure-class b-d-name
                                      :domain d
                                      :direct-superclasses 
  -                                   (list bm-mc lm-mc domain)
  +                                   (list bm-mc domain lm-mc)
                                      :metaclass md-mc
                                      #+SBCL :definition-source #+SBCL src))
                       (d-d ;; derived measurement class for DOMAIN (aux)
  
positive.code: 		      :metaclass b-d
  		      #+SBCL :definition-source #+SBCL src 
  		      )))
                 (declare (ignore d-d))
  	       (setf (slot-value d 'base-measure) c)
  	       (register-measurement-domain d)
  	       (register-measurement-class c)
  	       (values d c))))
  
negative.code:                         :base-measure class
  			:print-name domain-name
  			:print-label domain-name
  			:direct-superclasses (list mc-mc)
  			:metaclass md-mc
  			#+SBCL :definition-source #+SBCL src))
                      (b-d ;; base measurement class for DOMAIN
  