Changeset 4593

Timestamp:

11/01/03 19:11:27 (19 years ago)

Author:

piso

Message:

toString()

File:

• trunk/j/src/org/armedbear/lisp/GenericFunction.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/GenericFunction.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: GenericFunction.java,v 1.2 2003-10-12 18:21:50 piso Exp $
+ * $Id: GenericFunction.java,v 1.3 2003-11-01 19:11:27 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -78 +78 @@
     }
 
+    public String toString()
+    {
+        LispObject slots = getSlots();
+        if (slots instanceof AbstractVector) {
+            AbstractVector v = (AbstractVector) slots;
+            try {
+                if (v.length() > 0) {
+                    LispObject name = v.get(0);
+                    if (name != null) {
+                        StringBuffer sb = new StringBuffer("#<");
+                        sb.append(String.valueOf(getLispClass().getSymbol()));
+                        sb.append(' ');
+                        sb.append(String.valueOf(name));
+                        sb.append('>');
+                        return sb.toString();
+                    }
+                }
+            }
+            catch (Throwable t) {
+                Debug.trace(t);
+            }
+        }
+        return super.toString();
+    }
+
     private static final Primitive1 GENERIC_FUNCTION_DISCRIMINATING_FUNCTION =
         new Primitive1("generic-function-discriminating-function", PACKAGE_SYS, false)