Using the new clsql-sys::+whitespace-chars+ param.

[clsql.git] / db-sqlite3 / sqlite3-sql.lisp

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 1ba6b0ba68649deee35d6a367d1b9bc826095f08..929aeceb92ed1e9011fdc6a4e9d30936442ffd44 100644 (file)
--- a/db-sqlite3/sqlite3-sql.lisp
+++ b/db-sqlite3/sqlite3-sql.lisp
@@ -287,7 +287,7 @@
       return
         (let* ((raw-type (third field-info))
                (start-length (position #\( raw-type))
-               (type (string-trim '(#\space #\tab #\newline)
+               (type (string-trim clsql-sys::+whitespace-chars+
                                  (if start-length
                                      (subseq raw-type 0 start-length)
                                      raw-type)))