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

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))