+2010-02-08 Kevin Rosenberg <kevin@rosenberg.net>
+ * Version 5.0.2
+ * sql/database.lisp: Fix missing slot-accessor
+ (Thanks to Stelian Ionescu)
+ * sql/generics.lisp: Add missing keyword to defgeneric
+ (Thanks to Stelian Ionescu)
+
2010-02-07 Kevin Rosenberg <kevin@rosenberg.net>
* Version 5.0.1
* sql/{base-classes,database}.lisp: Add encoding slot for
+cl-sql (5.0.2-1) unstable; urgency=low
+
+ * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 08 Feb 2010 16:18:52 -0700
+
cl-sql (5.0.1-1) unstable; urgency=low
* New upstream
(when (typep db 'database)
(setf (slot-value db 'encoding) encoding)
(when (eql (slot-value db 'state) :open)
- (case database-type
+ (case (database-type db)
;; FIXME: If database object is open then
;; send command to SQL engine specifying the character
;; encoding for the database
supplied slots with other attributes having default
values. Furthermore, OBJECT becomes associated with DATABASE."))
-(defgeneric update-records-from-instance (object &key database)
+(defgeneric update-records-from-instance (object &key database this-class)
(:documentation
"Using an instance of a View Class, OBJECT, update the table
that stores its instance data. DATABASE defaults to
table of the database associated with OBJECT. If OBJECT is not
yet associated with a database, an error is signalled."))
-(defgeneric update-instance-from-records (object &key database)
+(defgeneric update-instance-from-records (object &key database this-class)
(:documentation
"Updates the slot values of the View Class instance OBJECT
using the attribute values of the appropriate table of DATABASE