X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=parse-common.lisp;h=98d0c018be432e33f74db79a67a78eeede645fe3;hb=0a3ba23814f05d98354c8667870077d64cafae37;hp=b8439fab6fffe9eeeecf91dfb69a25cf5ab97aed;hpb=c998b2d61806c209ead92af13929c12adaa7c451;p=umlisp.git

diff --git a/parse-common.lisp b/parse-common.lisp
index b8439fa..98d0c01 100644
--- a/parse-common.lisp
+++ b/parse-common.lisp
@@ -41,7 +41,7 @@
     (string
      (merge-pathnames 
       (make-pathname :name (concatenate 'string filename extension)) 
-      (case (char filename 0)
+      (case (schar filename 0)
 	((#\M #\m)
 	 *meta-path*)
 	((#\L #\l)
@@ -135,7 +135,7 @@ Currently, these are the LEX and NET files."
 (defun make-ucol-for-column (colname filename ucols)
   ;; try to find column name without a terminal digit
   (let* ((len (length colname))
-	 (last-digit? (digit-char-p (char colname (1- len))))
+	 (last-digit? (digit-char-p (schar colname (1- len))))
 	 (base-colname (if last-digit?
 			   (subseq colname 0 (1- len))
 			   colname))
@@ -250,9 +250,7 @@ append a unique number (starting at 2) onto a column name that is repeated in th
      (when (and (cmax col) (av col))
        (if (> (cmax col) 255)
 	   (setf (sqltype col) "TEXT")
-	 (if (< (- (cmax col) (av col)) 4) 
-	     (setf (sqltype col) "CHAR") ; if average bytes wasted < 4
-	   (setf (sqltype col) "VARCHAR")))))))
+	   (setf (sqltype col) "VARCHAR"))))))
 
 (defun escape-column-name (name)
   (substitute #\_ #\/ name))