Fix test and style.

com.oracle.truffle.r.nodes/src/com/oracle/truffle/r/nodes/access/BaseAccessSlotNode.java

@@ -104,4 +104,4 @@ public abstract class BaseAccessSlotNode extends RBaseNode {
         return object.isS4() || !asOperator;
     }
 
-}
\ No newline at end of file
+}

com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test

@@ -31356,6 +31356,10 @@ NULL
 #length(quote(x))
 [1] 1
+##com.oracle.truffle.r.test.builtins.TestBuiltin_length.testLength#
+#{ e <- new.env(); setClass('LengthTestClass', representation(a = 'numeric'), where=e); obj <- new('LengthTestClass', a = 1:100); length(obj) }
+[1] 1
+
 ##com.oracle.truffle.r.test.builtins.TestBuiltin_length.testLength#
 #{ foo <- function(...) length(get('...')); foo(a=1, b=2, c=3, d=4); }
 [1] 4
@@ -31396,10 +31400,6 @@ NULL
 #{ length(d<-dim(1:3)) }
 [1] 0
-##com.oracle.truffle.r.test.builtins.TestBuiltin_length.testLength#
-#{ setClass('LengthTestClass', representation(a = 'numeric'), where=e); obj <- new('LengthTestClass', a = 1:100); length(obj) }
-Error in getClassDef(Class, where) : object 'e' not found
-
 ##com.oracle.truffle.r.test.builtins.TestBuiltin_length.testlength1#
 #argv <- list('~ . + Soft+M.user:Temp');length(argv[[1]]);
 [1] 1

com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/builtins/TestBuiltin_length.java

@@ -211,6 +211,6 @@ public class TestBuiltin_length extends TestBase {
         assertEval("length(quote(x))");
         assertEval("length(as.symbol('x'))");
         assertEval("{ foo <- function(...) length(get('...')); foo(a=1, b=2, c=3, d=4); }");
-        assertEval("{ setClass('LengthTestClass', representation(a = 'numeric'), where=e); obj <- new('LengthTestClass', a = 1:100); length(obj) }");
+        assertEval("{ e <- new.env(); setClass('LengthTestClass', representation(a = 'numeric'), where=e); obj <- new('LengthTestClass', a = 1:100); length(obj) }");
     }
 }