anchor.diff:    ;; utility function - implementation of the "decimal shift"
     ;; algorithm denoted in the above
   
  -  ;; FIXME: Functionally redundant onto SCALE-FOR-SI-DEGREE,
  +  ;; FIXME: Functionally redundant onto SCALE-SI,
     ;;        though this function uses a different syntax for its
     ;;        second return value
     
  
positive.code:               ;; would be, henceforward, "Buried" within methods
                ;; specialized onto generic functions.
                ;;
                ;; For instance, the function SCALE-FOR-SI-DEGREE should
                ;; be defined as to dispatch onto the measurement unit
                ;; type for the scale. When the measurement is a
                ;; KILOGRAM, then it must be scaled with +3 implicit
  
negative.code:              
               (boundp
                (multiple-value-bind (adj-mag deg)
                    (scale-si mag deg)
                    (princ adj-mag stream)
                    (write-char #\Space stream)
                  (unless (zerop deg)
  