projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11411: update comment
[umlisp.git]
/
create-sql.lisp
diff --git
a/create-sql.lisp
b/create-sql.lisp
index 4a4413a1aa2e93e7f1f4431c7fb6ed66fedbfcf2..ab7d64a553fbaa8077fef3442f258ad3679a4974 100644
(file)
--- a/
create-sql.lisp
+++ b/
create-sql.lisp
@@
-128,7
+128,7
@@
(format nil " (~d)" length)
"")))
((:postgresql :postgresql-socket)
(format nil " (~d)" length)
"")))
((:postgresql :postgresql-socket)
- ;; FIXME: incorrect syntax
+ ;; FIXME: incorrect syntax
for postgresql?
(if (integerp length)
(format nil "substr((~A)::text,1,~D)" colname length)
colname))
(if (integerp length)
(format nil "substr((~A)::text,1,~D)" colname length)
colname))
@@
-262,7
+262,8
@@
This is much faster that using create-umls-db-insert."
(sql-create-indexes conn)
(sql-create-custom-tables conn)
(sql-create-indexes conn +custom-index-cols+)
(sql-create-indexes conn)
(sql-create-custom-tables conn)
(sql-create-indexes conn +custom-index-cols+)
- (sql-create-special-tables conn))))
+ (sql-create-special-tables conn)))
+ t)
(defun translate-all-files (&optional (extension "-trans"))
"Copy translated files and return postgresql copy commands to import"
(defun translate-all-files (&optional (extension "-trans"))
"Copy translated files and return postgresql copy commands to import"