anchor.diff:    ()
     (:report
      (lambda (c s)
  -     (format s "No measureent class registered for name ~S"
  +     (format s "No measurement class registered for name ~S"
                (entity-not-found-name c)))))
   
      
  
positive.code:   (rescale scalar (prefix-degree prefix)))
  
  
  
  (defmethod nrescale ((scalar measurement) (prefix fixnum))
    (multiple-value-bind (new-mag new-deg) 
        (shift-magnitude (measurement-magnitude scalar)
  
negative.code:   ()
    (:report
     (lambda (c s)
       (format s "No measurement prefix registered for name ~S"
               (entity-not-found-name c)))))
  
  (define-condition prefix-degree-not-found (entity-not-found)
    ()
    (:report
     (lambda (c s)
       (format s "No measurement prefix registered for degree ~S"
               (entity-not-found-name c)))))
  
  
  