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: 	      (unless (zerop d0)
  		(put-n (get-digit d0 style))))))))))
  
  (defun print-jp-integer (stream object style)
    (declare (type integer object))
    (when (minusp object)
      (write-string (get-minus-sign style) stream)
      (setf object (- object)))
    (loop with strs = nil
       for power from 0 by 4
       for (rest digits4) = (multiple-value-list (floor object 10000))
  
negative.code:      for c across lispstr
       as jp-str = 
       (case c
         ((#\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))
  