Index: /Include/Classes/ActiveBasic/Math/Math.ab
===================================================================
--- /Include/Classes/ActiveBasic/Math/Math.ab	(revision 288)
+++ /Include/Classes/ActiveBasic/Math/Math.ab	(revision 289)
@@ -66,5 +66,5 @@
 	Dim p = VarPtr(x) As *DWord
 	p[1] And= &H7FF00000
-	IsFinite = p[1] And &H7FF00000 = &H7FF00000
+	IsFinite = ( p[1] And &H7FF00000 ) = &H7FF00000
 End Function
 
Index: /Include/Classes/System/Collections/ArrayList.ab
===================================================================
--- /Include/Classes/System/Collections/ArrayList.ab	(revision 288)
+++ /Include/Classes/System/Collections/ArrayList.ab	(revision 289)
@@ -319,5 +319,5 @@
 
 	Static Function FixedSize(l As IList) As IList
-		Return FixedSize(Adapter(VarPtr(l)))
+		Return FixedSize(Adapter(l))
 	End Function
 
Index: /Include/Classes/System/IO/FileStream.ab
===================================================================
--- /Include/Classes/System/IO/FileStream.ab	(revision 288)
+++ /Include/Classes/System/IO/FileStream.ab	(revision 289)
@@ -93,5 +93,5 @@
 		End Select
 
-		This.handle=CreateFile(path.Chars As PSTR,ac,sh,ByVal NULL,mo,op,0)
+		This.handle=CreateFile(path As PSTR,ac,sh,ByVal NULL,mo,op,0)
 		If This.handle=INVALID_HANDLE_VALUE Then
 		'エラー処理
Index: /Include/basic/function.sbp
===================================================================
--- /Include/basic/function.sbp	(revision 288)
+++ /Include/basic/function.sbp	(revision 289)
@@ -265,5 +265,5 @@
 
 Function Date$() As String
-	Dim date = DateTime.Now
+	Dim date = System.DateTime.Now
 	Dim buf = New System.Text.StringBuilder(10)
 
@@ -693,5 +693,5 @@
 
 Function Time$() As String
-	Dim time = DateTime.Now
+	Dim time = System.DateTime.Now
 
 	Dim buf = New System.Text.StringBuilder(8)
Index: /Include/system/interface.ab
===================================================================
--- /Include/system/interface.ab	(revision 288)
+++ /Include/system/interface.ab	(revision 289)
@@ -6,5 +6,7 @@
 Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure
 	Dim interfaceStructure As InterfaceStructure
-	interfaceStructure.thisPtr = ObjPtr( obj )
-	interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
+
+	' TODO: 実装
+	'interfaceStructure.thisPtr = ObjPtr( obj )
+	'interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
 End Function