anchor.diff:  		     (class-of a)
   		     (measurement-degree a))))
   
  -;; FIXME: Must return measurement of type "unity" unit
  +;; FIXME: Must return measurement of a "dimensionless" unit
   #+NIL
   (defmethod @/ ((a measurement) (b measurement))
     (ERROR "Frob"))
  
positive.code: ;; measurement-ov.lisp - math operations for measurement values
  
  (in-package #:math)
  
  
negative.code: 	(make-measurement m class d)))))
  
  ;; 5*10^2 + 5*10^2  = 10^2(5 + 5)) = 1000
  ;; (scalar-magnitude (@+ (make-measurement 5 :|m| 2) (make-measurement 5 :|m| 2)))
  ;; => 1000
  
  ;; 5*10^2 + 5*10^3  = 10^2(5*10^0 + 5*10^1) = 5500
  ;; (scalar-magnitude (@+ (make-measurement 5 :|m| 2) (make-measurement 5 :|m| 3)))
  ;; => 5500
  ;; (scalar-magnitude (@+ (make-measurement 5 :|m| 3) (make-measurement 5 :|m| 2)))
  ;; => 5500
  
  ;; 5*10^-2 + 5*10^3 = 10^-2(5*10^0 + 5*10^5) = 100001/20 = 5000.05
  ;; (scalar-magnitude (@+ (make-measurement 5 :|m| -2) (make-measurement 5 :|m| 3)))
  ;; => 100001/20
  ;; (scalar-magnitude (@+ (make-measurement 5 :|m| 3) (make-measurement 5 :|m| -2)))
  ;; => 100001/20
  
  (defmethod %- ((a measurement))
  