;;;; 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 (if start-length
- (subseq raw-type 0 start-length)
- raw-type))
+ (type (string-trim clsql-sys::+whitespace-chars+
+ (if start-length
+ (subseq raw-type 0 start-length)
+ raw-type)))
(length (if start-length
(parse-integer (subseq raw-type (1+ start-length))
:junk-allowed t)