anchor.diff:  
   	 (m-m  (measurement-magnitude m))
            (m-d (measurement-degree m)))
  +
  +    ;; Comment from during Ig1m sprints:
  +    ;;
       ;; Note that this effectively ignores the measurement conversion
  -    ;; model, and makes no reference to the domain of the MEASUREMENT
  +    ;; model, and makes no reference to the domain of the MEASUREMENT (?)
       ;;
       ;; Essentially, this function uses a "Short cut" for conversion to
       ;; base measurement, using the BASE-FACTOR and
  -    ;; BASE-FACTOR-EXPONENT of the UNIT for the measurement
  +    ;; BASE-FACTOR-EXPONENT of the UNIT for the measurement (?)
       
  +    ;; Comment from during Ig2m sprints:
  +    ;;
       ;; FIXME - DESIGN AMBIGUITY => MISALIGNMENT
       ;; 
       ;; This function appears to return not the magnitude as in
  
positive.code:     ;; reduced per degrees in measurement conversion (i.e. source
      ;; degree => dest-degree)
      
      (* m-m (expt expt-base m-d)
         base-m (expt expt-base base-d))))
  
  ;; BEGIN: Example
  
  
negative.code: 
  
  ;; (base-magnitude (make-measurement 1 :|m| 3))
  ;; => 1000, 3
  
  ;; (base-magnitude (make-measurement 1 :|m| -3))
  ;; => 1/1000, -3
  
  ;; (base-magnitude (make-measurement 1/5 :|m|))
  ;; => 1/5, 0
  
  ;; (base-magnitude (make-measurement 1/5 :|m| -3))
  ;; => 1/5000, -3
  
  
  ;; (base-magnitude (make-measurement 1 :|kg|))
  ;; => 1, 0
  ;;
  ;; (base-magnitude (make-measurement 1000 :|kg|))
  ;; =SHOULD=> 1000, 0 ;; FAIL (!)
  ;; SEE ALSO: 
  ;; * MEASUREMENT-BASE-FACTOR <<GRAM>>
  ;; * MEASUREMENT-BASE-FACTOR-EXPONENT <<GRAM>>
  
  ;; (base-magnitude (make-measurement 1 :|g|))
  ;; => 1/1000, 0
  ;;
  ;; (base-magnitude (make-measurement 1000 :|g|))
  ;; => 1, 3
  
  (defgeneric scalar-magnitude (scalar)
    ;; This function had its origins in the definition of the
  