[armedbear-cvs] r13356 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

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;
             }
         }