write !,"удаление всех описаний классов:",!
 do $system.OBJ.DeletePackage("*")
  write !,"удаление всех программ из области:",!
 // удаляются все программы из области, кроме текущей
 set rset = ##class(%ResultSet).%New()
 set rset.ClassName = "%Library.Routine"
 set rset.QueryName = "RoutineList"
 
 for rext = "*.MAC","*.INT","*.OBJ" {
 	do rset.Execute(rext,,1)
	 while (rset.Next(.sc)) {
	    if ($SYSTEM.Status.IsOK(sc)) {
	       set rname = rset.Data("Name")
	       if ($t(+0)'=$extract(rname,1,$length(rname)-4)) {
	       	write rset.Data("Name"),!
	       	do ##class(%Library.Routine).Delete(rname)
	       }
	    }
	 }
 }