[armedbear-cvs] r13356 - trunk/abcl/src/org/armedbear/lisp
mevenson at common-lisp.net
mevenson at common-lisp.net
Wed Jun 22 08:17:46 UTC 2011
Author: mevenson
Date: Wed Jun 22 01:17:45 2011
New Revision: 13356
Log:
Report load time of ".abclrc" forms if we are being chatty.
Modified:
trunk/abcl/src/org/armedbear/lisp/Interpreter.java
Modified: trunk/abcl/src/org/armedbear/lisp/Interpreter.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Interpreter.java Tue Jun 21 14:18:51 2011 (r13355)
+++ trunk/abcl/src/org/armedbear/lisp/Interpreter.java Wed Jun 22 01:17:45 2011 (r13356)
@@ -215,7 +215,15 @@
String userHome = System.getProperty("user.home");
File file = new File(userHome, ".abclrc");
if (file.isFile()) {
+ final double startLoad = System.currentTimeMillis();
Load.load(file.getCanonicalPath());
+ if (!noinform) {
+ final double loadtime
+ = (System.currentTimeMillis() - startLoad) / 1000.0;
+ getStandardOutput()
+ ._writeString("Loading " + file + " completed in "
+ + loadtime + " seconds.\n");
+ }
return;
}
}
More information about the armedbear-cvs
mailing list