projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d3f58e5
)
If updating an instance from the database and we found the row in the database then...
author
Nathan Bird
<nathan@acceleration.net>
Thu, 15 Jan 2009 16:19:09 +0000
(11:19 -0500)
committer
Nathan Bird
<nathan@acceleration.net>
Mon, 2 Feb 2009 20:19:36 +0000
(15:19 -0500)
sql/oodml.lisp
patch
|
blob
|
history
diff --git
a/sql/oodml.lisp
b/sql/oodml.lisp
index 30f6b0dfd82ea20aaab3526dcca657a8740f0a08..3e7ec9af023c31fc1c5d0e4cdd538c4ab2e8cfa5 100644
(file)
--- a/
sql/oodml.lisp
+++ b/
sql/oodml.lisp
@@
-235,6
+235,7
@@
:result-types nil
:database database)))))
(when res
+ (setf (slot-value instance 'view-database) database)
(get-slot-values-from-view instance (mapcar #'car sels) (car res)))))
(defmethod update-slot-from-record ((instance standard-db-object)