anchor.diff:  	(at-sign-p :old)
   	(t :normal)))
   
  -(defun pprint-jp-numeral (stream object &optional colon-p at-sign-p
  +(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)
  
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: 	      (unless (zerop d0)
  		(put-n (get-digit d0 style))))))))))
  
  (defun print-jp-integer (stream object style scale)
    (declare (type integer object))
    (setf object (* object (expt 10 scale)))
    (loop with strs = nil
       for power from 0 by 4
       for (rest digits4) = (multiple-value-list (floor object 10000))
  