projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improved documentation of normalized classes and changelog entry
[clsql.git]
/
sql
/
ooddl.lisp
diff --git
a/sql/ooddl.lisp
b/sql/ooddl.lisp
index bb2405b980ff96e06b5daa17c0ae09ce4dbb2e7e..50c37a691a7639ad1c48fdfe71d6f4c1848e4a8b 100644
(file)
--- a/
sql/ooddl.lisp
+++ b/
sql/ooddl.lisp
@@
-57,6
+57,7
@@
(defmethod (setf slot-value-using-class) (new-value (class standard-db-class)
instance slot-def)
(defmethod (setf slot-value-using-class) (new-value (class standard-db-class)
instance slot-def)
+ "Handle auto syncing values to the database if *db-auto-sync* is t"
(declare (ignore new-value))
(let* ((slot-name (%svuc-slot-name slot-def))
(slot-object (%svuc-slot-object slot-def class))
(declare (ignore new-value))
(let* ((slot-name (%svuc-slot-name slot-def))
(slot-object (%svuc-slot-object slot-def class))