From cfb1303ed18a8a14554fbd506f52b176278ecd8e Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Mon, 8 Feb 2010 16:51:23 -0700 Subject: [PATCH] Version 5.0.2: Add missing slot accessor, make defgenerics match defmethod --- ChangeLog | 7 +++++++ debian/changelog | 6 ++++++ sql/database.lisp | 2 +- sql/generics.lisp | 4 ++-- 4 files changed, 16 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index dc2a4b4..58c270f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2010-02-08 Kevin Rosenberg + * 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 * Version 5.0.1 * sql/{base-classes,database}.lisp: Add encoding slot for diff --git a/debian/changelog b/debian/changelog index ffa633d..846ec32 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (5.0.2-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Mon, 08 Feb 2010 16:18:52 -0700 + cl-sql (5.0.1-1) unstable; urgency=low * New upstream diff --git a/sql/database.lisp b/sql/database.lisp index d4d1d91..382f552 100644 --- a/sql/database.lisp +++ b/sql/database.lisp @@ -317,7 +317,7 @@ system specified by DATABASE-TYPE." (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 diff --git a/sql/generics.lisp b/sql/generics.lisp index 860771e..f022ff9 100644 --- a/sql/generics.lisp +++ b/sql/generics.lisp @@ -72,7 +72,7 @@ represented by SLOTS are initialised from the values of the 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 @@ -88,7 +88,7 @@ associated with DATABASE.")) 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 -- 2.34.1