anchor.diff:              (deci  -1 "d" :|d|)
               (centi  -2 "c" :|c|)
               (milli  -3 "m" :|m|)
  -            (micro  -6 "Î¼" :|u|)
  +            (micro  -6 #.(string (code-char #x3BC)) :|u|)
               (nano  -9 "n" :|n|)
               (pico  -12 "p" :|p|)
               (femto  -15 "f" :|f|)
  
positive.code:          (multiple-value-bind (deg boundp)
               (slot-value* object 'degree)
             (cond
               (boundp
                (multiple-value-bind (adj-mag deg)
                    (scale-for-si-degree mag deg)
  
negative.code: 
  
  (defun prefix-of (m)
    ;; FIXME: Rename to SCALAR-PREFIX
  
    "Select and return a PREFIX object representative of the scalar
  magnitude and degree of measurement M. The second return value will
  represent the magnitude of M scaled for decimal degrees of the prefix
  