* sql/oodml.lisp: Improve database priority in
update-records-from-instance [Patch from Walter C. Pelissero]
+03 Mar 2005 Kevin Rosenberg <kevin@rosenberg.net>
+ * sql/oodml.lisp: Improve database priority in
+ update-records-from-instance [Patch from Walter C. Pelissero]
+
17 Feb 2005 Kevin Rosenberg <kevin@rosenberg.net>
* Version 3.1.7
* sql/package.lisp: Export database-reconnect from clsql-sys
(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))))