Skip uncompiled classes

eduard93 · web-flow · commit c18f6c890953 · 2016-11-23T22:37:58.000+03:00
diff --git a/src/cls/CDV/CDV.cls b/src/cls/CDV/CDV.cls
@@ -55,7 +55,7 @@ ClassMethod ScanFromClassLocal(ByRef Classes As %String, ByRef Oid As %String) A
 	For { 
 		Set Class = $Order(Classes(Class))
 		Quit:Class=""
-		If ($classmethod(Class, "%Extends", "%RegisteredObject"))
+		If (##class(%Dictionary.CompiledClass).%ExistsId(Class) && $classmethod(Class, "%Extends", "%Library.Persistent"))
 		{
 			Set sc1 = ..ValidateClassObjects(Class, .Oid)
 		}

Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,7 @@ ClassMethod ScanFromClassLocal(ByRef Classes As %String, ByRef Oid As %String) A`
`55`	`55`	`For {`
`56`	`56`	`Set Class = $Order(Classes(Class))`
`57`	`57`	`Quit:Class=""`
`58`		`- If ($classmethod(Class, "%Extends", "%RegisteredObject"))`
	`58`	`+ If (##class(%Dictionary.CompiledClass).%ExistsId(Class) && $classmethod(Class, "%Extends", "%Library.Persistent"))`
`59`	`59`	`{`
`60`	`60`	`Set sc1 = ..ValidateClassObjects(Class, .Oid)`
`61`	`61`	`}`