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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Aug 22 13:44:30 2012
New Revision: 14132

Log:
Make Symbol.toString() print something developer-readable to
help debugging in NetBeans.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Symbol.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Symbol.java	Tue Aug 21 07:00:13 2012	(r14131)
+++ trunk/abcl/src/org/armedbear/lisp/Symbol.java	Wed Aug 22 13:44:30 2012	(r14132)
@@ -942,6 +942,19 @@
 	    return this;
 	}
     }
+    
+    @Override
+    public String toString() {
+        StringBuilder sb = new StringBuilder();
+        if (pkg instanceof Package) {
+            sb.append(((Package)pkg).getName());
+            sb.append(":");
+        } else {
+            sb.append("#:");
+        }
+        sb.append(name);
+        return sb.toString();
+    }
 
 
   // External symbols in CL package.