From 9172cacc5ce2c8e36bf81ca0cede1179820edf8e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 2 Mar 2005 22:21:28 +0000 Subject: [PATCH] r10352: 03 Mar 2005 Kevin Rosenberg * sql/oodml.lisp: Improve database priority in update-records-from-instance [Patch from Walter C. Pelissero] --- ChangeLog | 4 ++++ sql/oodml.lisp | 5 ++--- 2 files changed, 6 insertions(+), 3 deletions(-) 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)))) -- 2.34.1