aEnvironment.iCurrentOutput.Write("Function not yet implemented : LispFileSize");
LispPtr fnameObject = new LispPtr(); fnameObject.Set(ARGUMENT(aEnvironment,aStackTop,1).Get()); LispError.CHK_ISSTRING_CORE(aEnvironment,aStackTop,fnameObject,1); String fname = LispStandard.InternalUnstringify(fnameObject.Get().String()); String hashedname = aEnvironment.HashTable().LookUp(fname);  long fileSize = 0; InputStatus oldstatus = new InputStatus(aEnvironment.iInputStatus); aEnvironment.iInputStatus.SetTo(hashedname); try {  LispInput newInput = LispStandard.OpenInputFile(aEnvironment, aEnvironment.iInputDirectories, hashedname, aEnvironment.iInputStatus);  LispError.Check(newInput != null, LispError.KLispErrFileNotFound); fileSize = newInput.StartPtr().length(); } catch (Exception e) { throw e; } finally { aEnvironment.iInputStatus.RestoreFrom(oldstatus); } RESULT(aEnvironment,aStackTop).Set(LispAtom.New(aEnvironment,""+fileSize));
    public void Eval(LispEnvironment aEnvironment,int aStackTop) throws Exception    {      aEnvironment.iCurrentOutput.Write("Function not yet implemented : LispFileSize");//TODO FIXME    }