X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-sqlite%2Fsqlite-sql.lisp;h=86b71ef476e1b94acdff9cc7f79d94436fabfac2;hb=e06ca99080d17083dcfcf3f148de4a8796773e78;hp=24b47271821c031d307368a72fae661585e43c55;hpb=e2c86e8c664d8b3ecfd215843a9a1fbf5fa83693;p=clsql.git

diff --git a/db-sqlite/sqlite-sql.lisp b/db-sqlite/sqlite-sql.lisp
index 24b4727..86b71ef 100644
--- a/db-sqlite/sqlite-sql.lisp
+++ b/db-sqlite/sqlite-sql.lisp
@@ -187,7 +187,7 @@
   ;; Query is copied from .table command of sqlite comamnd line utility.
   (remove-if #'(lambda (s)
                  (and (>= (length s) 10)
-                      (string= (subseq s 0 10) "_usql_seq_")))
+                      (string= (subseq s 0 10) "_clsql_seq_")))
              (mapcar #'car (database-query
                             "SELECT name FROM sqlite_master WHERE type='table' UNION ALL SELECT name FROM sqlite_temp_master WHERE type='table' ORDER BY name"
                             database '()))))
@@ -226,11 +226,11 @@
 	return (third field-info)))
 
 (defun %sequence-name-to-table-name (sequence-name)
-  (concatenate 'string "_usql_seq_" (sql-escape sequence-name)))
+  (concatenate 'string "_clsql_seq_" (sql-escape sequence-name)))
 
 (defun %table-name-to-sequence-name (table-name)
   (and (>= (length table-name) 10)
-       (string= (subseq table-name 0 10) "_usql_seq_")
+       (string= (subseq table-name 0 10) "_clsql_seq_")
        (subseq table-name 10)))
 
 (defmethod database-create-sequence (sequence-name