From: Kevin M. Rosenberg Date: Wed, 2 Mar 2005 22:21:28 +0000 (+0000) Subject: r10352: 03 Mar 2005 Kevin Rosenberg X-Git-Tag: v3.8.6~172 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=9172cacc5ce2c8e36bf81ca0cede1179820edf8e;hp=cc1360674fe8976074b6af9e5a9aab63cb078fc7 r10352: 03 Mar 2005 Kevin Rosenberg * sql/oodml.lisp: Improve database priority in update-records-from-instance [Patch from Walter C. Pelissero] --- diff --git a/ChangeLog b/ChangeLog index 63e95ef..b4ac72d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +03 Mar 2005 Kevin Rosenberg + * sql/oodml.lisp: Improve database priority in + update-records-from-instance [Patch from Walter C. Pelissero] + 17 Feb 2005 Kevin Rosenberg * Version 3.1.7 * sql/package.lisp: Export database-reconnect from clsql-sys diff --git a/sql/oodml.lisp b/sql/oodml.lisp index d76712c..4644bf1 100644 --- a/sql/oodml.lisp +++ b/sql/oodml.lisp @@ -211,9 +211,8 @@ (error "Unable to update records")))) (values)) -(defmethod update-records-from-instance ((obj standard-db-object) - &key (database *default-database*)) - (let ((database (or (view-database obj) database))) +(defmethod update-records-from-instance ((obj standard-db-object) &key database) + (let ((database (or database (view-database obj) *default-database*))) (labels ((slot-storedp (slot) (and (member (view-class-slot-db-kind slot) '(:base :key)) (slot-boundp obj (slot-definition-name slot))))