anchor.diff:                ;; would be, henceforward, "Buried" within methods
                 ;; specialized onto generic functions.
                 ;;
  -              ;; For instance, the function SCALE-FOR-SI-DEGREE should
  +              ;; For instance, the function SCALE-SI 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
  
positive.code:              
               (boundp
                (multiple-value-bind (adj-mag deg)
                    (scale-for-si-degree mag deg)
                    (princ adj-mag stream)
                    (write-char #\Space stream)
                  (unless (zerop deg)
  
negative.code:   (let ((deg (measurement-degree m))
          (mag (measurement-magnitude m)))
      (multiple-value-bind (mag-adj deg-adj)
          (scale-si mag deg)
        (let ((prefix
               (find deg-adj %prefixes%
                     :key #'prefix-degree
  