X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=create-sql.lisp;h=fd513c4660064e31f37da3f01102ecab463a0764;hb=d77ffdd5904e25e51304bdefbca3a0887e75e82c;hp=66b9c028c8cfd1c1023dba59cb66bfd75da97ad2;hpb=f7e068906be2f9d6232e54a1063d1471adf20918;p=umlisp.git

diff --git a/create-sql.lisp b/create-sql.lisp
index 66b9c02..fd513c4 100644
--- a/create-sql.lisp
+++ b/create-sql.lisp
@@ -112,8 +112,9 @@
 			      (format nil " (~d)" length)
 			      "")))
 	    ((:postgresql :postgresql-socket)
+	     ;; FIXME: incorrect syntax
 	     (if (integerp length)
-		 (format nil "substr(~A,1,~D)" colname length)
+		 (format nil "substr((~A)::text,1,~D)" colname length)
 		 colname))
 	    (t
 	     colname))))
@@ -152,7 +153,7 @@
 
 (defun drop-index-cmd (colname tablename)
   "Return sql create index command"
-  (case *umls-sql-type
+  (case *umls-sql-type*
     (:mysql
      (format nil "DROP INDEX ~a ON ~a"
 	     (concatenate 'string tablename "_" colname "_X")
@@ -164,8 +165,7 @@
 (defun sql-create-indexes (conn &optional (indexes +index-cols+))
   "SQL Databases: create all indexes"
   (dolist (idx indexes)
-    (ignore-errors
-     (sql-execute (drop-index-cmd (car idx) (cadr idx)) conn))
+    (ignore-errors (sql-execute (drop-index-cmd (car idx) (cadr idx)) conn))
     (sql-execute (create-index-cmd (car idx) (cadr idx) (caddr idx)) conn))) 
 
 (defun make-usrl (conn)