+16 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net)
+ * Version 2.7.6
+ * base/objects.lisp, base/classes.lisp: Patch
+ for db-kind from Eduardo Munoz
+
16 Apr 2004 Kevin Rosenberg (kevin@rosenberg.net)
* Version 2.7.5
* base/basic-sql.lisp: Fix FLATP in QUERY
+cl-sql (2.7.6-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Sat, 17 Apr 2004 20:48:15 -0600
+
cl-sql (2.7.5-1) unstable; urgency=low
* New upstream
(defmethod output-sql ((stmt sql-create-table) &optional
(database *default-database*))
(flet ((output-column (column-spec)
- (destructuring-bind (name type &rest constraints)
+ (destructuring-bind (name type &optional db-type &rest constraints)
column-spec
(let ((type (listify type)))
(output-sql name database)
(write-char #\Space *sql-stream*)
(write-string
- (database-get-type-specifier (car type) (cdr type) database)
+ (if (stringp db-type) db-type ; override definition
+ (database-get-type-specifier (car type) (cdr type) database))
*sql-stream*)
(let ((constraints
(database-constraint-statement constraints database)))
(let ((cdef
(list (sql-expression :attribute (view-class-slot-column slotdef))
(slot-type slotdef))))
+ (setf cdef (append cdef (list (view-class-slot-db-type slotdef))))
(let ((const (view-class-slot-db-constraints slotdef)))
(when const
(setq cdef (append cdef (list const)))))