;;;; Author: Kevin M. Rosenberg
;;;; Created: Apr 2000
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
(when *has-fixnum-class*
(defmethod fmt-cui ((c fixnum))
- (prefixed-fixnum-string c #\C 7)))
+ (if (>= c 10000000)
+ (prefixed-fixnum-string c #\C 8)
+ (prefixed-fixnum-string c #\C 7))))
(defmethod fmt-cui ((c integer))
- (prefixed-integer-string c #\C 7))
+ (if (>= c 10000000)
+ (prefixed-fixnum-string c #\C 8)
+ (prefixed-fixnum-string c #\C 7)))
(defmethod fmt-cui ((c string))
(if (eql (aref c 0) #\C)
(when *has-fixnum-class*
(defmethod fmt-lui ((l fixnum))
- (prefixed-fixnum-string l #\L 7)))
+ (if (>= l 10000000)
+ (prefixed-fixnum-string l #\L 8)
+ (prefixed-fixnum-string l #\L 7))))
(defmethod fmt-lui ((l integer))
- (prefixed-integer-string l #\L 7))
+ (if (>= l 10000000)
+ (prefixed-fixnum-string l #\L 8)
+ (prefixed-fixnum-string l #\L 7)))
(defmethod fmt-lui ((l string))
(if (eql (aref l 0) #\L)
(when *has-fixnum-class*
(defmethod fmt-sui ((s fixnum))
- (prefixed-fixnum-string s #\S 7)))
-
+ (if (>= s 10000000)
+ (prefixed-fixnum-string s #\S 8)
+ (prefixed-fixnum-string s #\S 7))))
+
(defmethod fmt-sui ((s integer))
- (prefixed-integer-string s #\S 7))
+ (if (>= s 10000000)
+ (prefixed-fixnum-string s #\S 8)
+ (prefixed-fixnum-string s #\S 7)))
(defmethod fmt-sui ((s string))
(if (eql (aref s 0) #\S)