(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))
(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"