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