Added function DELETE-COLLECT-IF