r4939: Auto commit for Debian build

diff --git a/class-support.lisp b/class-support.lisp
index 09bca9126f99449ed0b8f49c25bc2d41ca2ec4d3..0a2dc5fa421a4591cd45d865b00dbb63b70c7c48 100644 (file)
--- a/class-support.lisp
+++ b/class-support.lisp
@@ -7,7 +7,7 @@
 ;;;; 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.
@@ -62,14 +62,14 @@
       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))