anchor.diff:       for c across lispstr
        as jp-str = 
        (case c
  -       (#\0 (get-digit 0 style))
  -       (#\1 (get-digit 1 style))
  -       (#\2 (get-digit 2 style))
  -       (#\3 (get-digit 3 style))
  -       (#\4 (get-digit 4 style))
  -       (#\5 (get-digit 5 style))
  -       (#\6 (get-digit 6 style))
  -       (#\7 (get-digit 7 style))
  -       (#\8 (get-digit 8 style))
  -       (#\9 (get-digit 9 style))
  +       ((#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
  +	(translate-digit c style))
          (#\. radix-point-str)
          (#\- (get-minus-sign style))
          (#\/ (get-parts-of style))
  
positive.code:        (setf (fill-pointer buf) 0)
         (format buf "~A" object)))
     ;; Final output.
     (write-string buf stream))
    style) ; If this is not expected one by the caller, means alternative methods used.
  
  
  
negative.code: 
  ;;; Writers
  
  (defun translate-digit (c style)
    (ecase c
      (#\0 (get-digit 0 style))
      (#\1 (get-digit 1 style))
      (#\2 (get-digit 2 style))
      (#\3 (get-digit 3 style))
      (#\4 (get-digit 4 style))
      (#\5 (get-digit 5 style))
      (#\6 (get-digit 6 style))
      (#\7 (get-digit 7 style))
      (#\8 (get-digit 8 style))
      (#\9 (get-digit 9 style))))
  
  (defun print-positional (stream object style digits-after-dot scale radix-point-str)
    (loop with lispstr
         = (typecase object
  