anchor.diff:    
   (defun wari (stream object &optional colon-p at-sign-p digits-after-dot
   	     &aux (style (flag-to-style colon-p at-sign-p)))
  -  (unless (realp object)
  -    (error "~A is not an expected type for wari" (type-of object)))
  +  (check-type object real "jp-numeral:wari acceptable type")
     (format-jp-numeral stream object style
   		     :digits-after-dot digits-after-dot
   		     :scale 1
  
positive.code:     (#\7 (get-digit 7 style))
      (#\8 (get-digit 8 style))
      (#\9 (get-digit 9 style))))
  
  (defun write-positional-from-string (stream lispstr style
  				     radix-point-string)
  
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)
  