anchor.diff:      (#\7 (get-digit 7 style))
       (#\8 (get-digit 8 style))
       (#\9 (get-digit 9 style))))
  +
  +;; positional notation
   
   (defun write-positional-from-string (stream lispstr style
   				     radix-point-string)
  
positive.code:        (write-string (get-power power style) stream))))
  
  
  (defun flag-to-style (colon-p at-sign-p)
    (cond ((and colon-p at-sign-p) :positional)
  	(colon-p :formal)
  	(at-sign-p :old)
  	(t :normal)))
  
  (defun format-jp-numeral (stream object style
  			  &key digits-after-dot scale radix-point)
    (unless (numberp object)
      (error "~A is not an expected type for jp-numeral" (type-of object)))
    (prog ((*print-base* 10)    ; *print-base* must be 10 for jp-numeral
  	 (scale (or scale 0))
  	 (radix-point-str (etypecase radix-point
  
negative.code: 
  (defun yen (stream object &optional colon-p at-sign-p digits-after-dot
  	    &aux (style (flag-to-style colon-p at-sign-p)))
    (check-type object real "jp-numeral:yen acceptable type")
    (unless digits-after-dot
      (setf digits-after-dot 2))
    (multiple-value-bind (signum yen sen rin)
  