r4942: Auto commit for Debian build

diff --git a/class-support.lisp b/class-support.lisp
index 0a2dc5fa421a4591cd45d865b00dbb63b70c7c48..6aeef267e74e11890bfa89fbb682fb8a4cdd0ffd 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.7 2003/05/14 21:34:52 kevin Exp $
+;;;; $Id: class-support.lisp,v 1.8 2003/05/15 05:16:44 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -28,7 +28,7 @@
   (fmt-cui (cui c)))
 
 (defmethod fmt-cui ((c fixnum))
-  (prefixed-fixnum-string c #\C 8))
+  (prefixed-fixnum-string c #\C 7))
 
 (defmethod fmt-cui ((c string))
   (if (eql (aref c 0) #\C)
@@ -43,7 +43,7 @@
   (fmt-lui (lui l)))
 
 (defmethod fmt-lui ((l fixnum))
-  (prefixed-fixnum-string l #\L 8))
+  (prefixed-fixnum-string l #\L 7))
 
 (defmethod fmt-lui ((l string))
   (if (eql (aref l 0) #\L)
@@ -55,7 +55,7 @@
   (fmt-sui (sui s)))
 
 (defmethod fmt-sui ((s fixnum))
-  (prefixed-fixnum-string s #\S 8))
+  (prefixed-fixnum-string s #\S 7))
 
 (defmethod fmt-sui ((s string))
   (if (eql (aref s 0) #\S)
@@ -64,7 +64,7 @@
 
 (defgeneric fmt-tui (tui))
 (defmethod fmt-tui ((tui fixnum))
-  (prefixed-fixnum-string tui #\T 4))
+  (prefixed-fixnum-string tui #\T 3))
 
 (defmethod fmt-tui ((tui string))
   (if (eql (aref tui 0) #\T)
@@ -73,7 +73,7 @@
 
 (defgeneric fmt-eui (e))
 (defmethod fmt-eui ((e fixnum))
-  (prefixed-fixnum-string e #\E 8))
+  (prefixed-fixnum-string e #\E 7))
 
 (defmethod fmt-eui ((e string))
   (if (eql (aref e 0) #\E)

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 3aa0c26d75d05cca1fa019032ae986e8083fc6f1..5ae20b1f6a4863632643146d3bbff89fd0bbf617 100644 (file)
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: sql-classes.lisp,v 1.78 2003/05/15 04:20:55 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.79 2003/05/15 05:16:44 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -44,7 +44,7 @@
       ,@(when %%where
              `((typecase ,where-value
                  (fixnum
-                  (prefixed-fixnum-string ,where-value #\= 12))
+                  (prefixed-fixnum-string ,where-value #\= 10))
                  (number
                   (concatenate 'string "=" (write-to-string ,where-value)))
                  (null