;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: class-support.lisp,v 1.6 2003/05/14 21:33:02 kevin Exp $
+;;;; $Id: class-support.lisp,v 1.7 2003/05/14 21:34:52 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
s
(fmt-sui (parse-integer s))))
-(defgeneric fmt-tui (t))
-(defmethod fmt-tui ((t fixnum))
- (prefixed-fixnum-string t #\T 4))
+(defgeneric fmt-tui (tui))
+(defmethod fmt-tui ((tui fixnum))
+ (prefixed-fixnum-string tui #\T 4))
-(defmethod fmt-tui ((s string))
- (if (eql (aref s 0) #\T)
- s
- (fmt-tui (parse-integer s))))
+(defmethod fmt-tui ((tui string))
+ (if (eql (aref tui 0) #\T)
+ tui
+ (fmt-tui (parse-integer tui))))
(defgeneric fmt-eui (e))
(defmethod fmt-eui ((e fixnum))