SVN?revision?77401?changes
????????x[isM]?<-?lapply(x[isM],?function(o)?`class<-`(o,?class(o)[class(o)?!=?"AsIs"]))
to
????????x[isM]?<-?lapply(x[isM],?function(o)?`class<-`(o,?class(o)[!inherits(o,"AsIs")]))
in?function?'get_all_vars'?in?src/library/stats/R/models.R?in?R?devel.
The?change?is?inappropriate.
class(o)[class(o)?!=?"AsIs"]?removes?"AsIs"?from?class(o),?giving?class(o)?without?"AsIs".
On?the?other?hand,?inherits(o,"AsIs")?is?just?a?single?logical?value.?If?"AsIs"?is?in class(o),?inherits(o,"AsIs")?is?TRUE. In that case,?by?recycling?of?logical?index,?class(o)[!inherits(o,"AsIs")]?removes?all?elements?of?class(o),?giving?character(0).