From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 14 May 2003 21:34:52 +0000 (+0000)
Subject: r4939: Auto commit for Debian build
X-Git-Tag: v2006ac.2~162
X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=0fbd7d20375c0b8b81ee2916efc0ab0847493a8d;p=umlisp.git

r4939: Auto commit for Debian build
---

diff --git a/class-support.lisp b/class-support.lisp
index 09bca91..0a2dc5f 100644
--- 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))