[isidorus-cvs] r901 - branches/gdl-frontend/src/json/JTM

[lgiessmann at common-lisp.net]

Author: lgiessmann
Date: Wed Sep 14 04:11:14 2011
New Revision: 901

Log:
jtm-delete-interface: fixed a bug when deleting occurrences

Modified:
   branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp

Modified: branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp
==============================================================================
--- branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp	Wed Sep 14 04:09:43 2011	(r900)
+++ branches/gdl-frontend/src/json/JTM/jtm_delete_interface.lisp	Wed Sep 14 04:11:14 2011	(r901)
@@ -284,8 +284,8 @@
 		 (t
 		  (error "when deleting an occurrence, there must be an item-identifier, reifier or parent set!")))))
       (when occ-to-delete
-	;(delete-occurrence (parent occ-to-delete :revision revision)
-	;occ-to-delete :revision revision)
+	(delete-occurrence (parent occ-to-delete :revision revision)
+			   occ-to-delete :revision revision)
 	occ-to-delete))))