[isidorus-cvs] r642 - trunk/src/model

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Mon Jul 18 13:30:16 2011
New Revision: 642

Log:
trunk: fixed a bug when deleten association scope-topics

Modified:
   trunk/src/model/datamodel.lisp

Modified: trunk/src/model/datamodel.lisp
==============================================================================
--- trunk/src/model/datamodel.lisp	Mon Jul 18 13:24:52 2011	(r641)
+++ trunk/src/model/datamodel.lisp	Mon Jul 18 13:30:16 2011	(r642)
@@ -2768,6 +2768,8 @@
   (let ((type-top (instance-of ass :revision revision)))
     (when type-top
       (private-delete-type ass type-top :revision revision)))
+  (dolist (theme (themes ass :revision revision))
+    (private-delete-theme ass theme :revision revision))
   (call-next-method))