anchor.diff:  
   ;;; 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
  
positive.code:      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))
         (#\. radix-point-str)
         (#\- (get-minus-sign style))
         (#\/ (get-parts-of style))
  
negative.code: 	(at-sign-p :old)
  	(t :normal)))
  
  (defun pprint-jp-numeral (o-stream object &optional colon-p at-sign-p
  			  digits-after-dot scale radix-point-char
  			  &aux (style (flag-to-style colon-p at-sign-p)))
    (unless (numberp object)
  