(string
(merge-pathnames
(make-pathname :name (concatenate 'string filename extension))
- (case (char filename 0)
+ (case (schar filename 0)
((#\M #\m)
*meta-path*)
((#\L #\l)
(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))
(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))