From f2b60454f7153077be7ad84cbb0f177d037bcbec Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 18 Mar 2005 23:53:53 +0000 Subject: [PATCH] r10359: 18 Mar 2005 Kevin Rosenberg * sql/oodml.lisp: Add missing database argument [Patch from Alan Caulkins] --- ChangeLog | 4 ++++ sql/oodml.lisp | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b4ac72d..d8f10b3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +18 Mar 2005 Kevin Rosenberg + * sql/oodml.lisp: Add missing database argument [Patch from + Alan Caulkins] + 03 Mar 2005 Kevin Rosenberg * sql/oodml.lisp: Improve database priority in update-records-from-instance [Patch from Walter C. Pelissero] diff --git a/sql/oodml.lisp b/sql/oodml.lisp index 4644bf1..e2a487e 100644 --- a/sql/oodml.lisp +++ b/sql/oodml.lisp @@ -261,8 +261,9 @@ (sels (generate-selection-list view-class)) (res (apply #'select (append (mapcar #'cdr sels) (list :from view-table - :where view-qual) - (list :result-types nil))))) + :where view-qual + :result-types nil + :database vd))))) (when res (get-slot-values-from-view instance (mapcar #'car sels) (car res))))) -- 2.34.1