anchor.diff:  
   ;;; cl:format interface
   
  +(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 jp (stream object &optional colon-p at-sign-p
   	   digits-after-dot scale radix-point)
     (format-jp-numeral stream object
  
positive.code:   
  (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)))
    (format-jp-numeral stream object style
  		     :digits-after-dot digits-after-dot
  		     :scale 1
  
negative.code:        (write-string (get-power power style) stream))))
  
  
  ;; entry point
  (defun format-jp-numeral (stream object style
  			  &key digits-after-dot scale radix-point)
    (check-type object number "jp-numeral acceptable type")
    (prog ((*print-base* 10)    ; *print-base* must be 10 for jp-numeral
  	 (scale (or scale 0))
  	 (radix-point-str (etypecase radix-point
  