X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-sqlite3%2Fsqlite3-sql.lisp;h=c51a5431890be950648ba442c0dd3c14072b9516;hp=1ba6b0ba68649deee35d6a367d1b9bc826095f08;hb=d2d49ab13c98bc7a1819a0fd3968268a5567bdc3;hpb=90ce2284fab5f1daedb8aa6aba3008a5c3651e30

diff --git a/db-sqlite3/sqlite3-sql.lisp b/db-sqlite3/sqlite3-sql.lisp
index 1ba6b0b..c51a543 100644
--- a/db-sqlite3/sqlite3-sql.lisp
+++ b/db-sqlite3/sqlite3-sql.lisp
@@ -7,8 +7,6 @@
 ;;;; Authors:  Aurelio Bignoli
 ;;;; Created:  Oct 2004
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2004 by Aurelio Bignoli
 ;;;;
 ;;;; CLSQL users are granted the rights to distribute and use this software
@@ -281,13 +279,13 @@
                                     (database sqlite3-database)
                                     &key (owner nil))
   (declare (ignore owner))
-  
+
   (loop for field-info in (sqlite3-table-info table database)
       when (string= attribute (second field-info))
       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)))