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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Jan 30 16:19:46 2011
New Revision: 13196

Log:
Provide more context regarding the reason of autoloading.

Note: This change *hugely* helps debugging.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Autoload.java

Modified: trunk/abcl/src/org/armedbear/lisp/Autoload.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Autoload.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Autoload.java	Sun Jan 30 16:19:46 2011
@@ -112,12 +112,12 @@
         }
     }
 
-    private static void loadVerbose(int loadDepth, String className,
+    private static void loadVerbose(Symbol sym, int loadDepth, String className,
             String fileName) {
         final String prefix = Load.getLoadVerbosePrefix(loadDepth);
         Stream out = getStandardOutput();
         out._writeString(prefix);
-        out._writeString(" Autoloading ");
+        out._writeString(sym.getQualifiedName() + " triggers autoloading of ");
         out._writeString(className == null ? fileName : className);
         out._writeLine(" ...");
         out._finishOutput();
@@ -143,7 +143,7 @@
             if (_AUTOLOAD_VERBOSE_.symbolValue(thread) != NIL
                 || "Y".equals(System.getProperty("abcl.autoload.verbose")))
             {
-                loadVerbose(loadDepth, className, getFileName());
+                loadVerbose(symbol, loadDepth, className, getFileName());
             } else
                 effectiveLoad(className, getFileName());
         }