Changeset 4593


Ignore:
Timestamp:
11/01/03 19:11:27 (18 years ago)
Author:
piso
Message:

toString()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/GenericFunction.java

    r4331 r4593  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: GenericFunction.java,v 1.2 2003-10-12 18:21:50 piso Exp $
     5 * $Id: GenericFunction.java,v 1.3 2003-11-01 19:11:27 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7878    }
    7979
     80    public String toString()
     81    {
     82        LispObject slots = getSlots();
     83        if (slots instanceof AbstractVector) {
     84            AbstractVector v = (AbstractVector) slots;
     85            try {
     86                if (v.length() > 0) {
     87                    LispObject name = v.get(0);
     88                    if (name != null) {
     89                        StringBuffer sb = new StringBuffer("#<");
     90                        sb.append(String.valueOf(getLispClass().getSymbol()));
     91                        sb.append(' ');
     92                        sb.append(String.valueOf(name));
     93                        sb.append('>');
     94                        return sb.toString();
     95                    }
     96                }
     97            }
     98            catch (Throwable t) {
     99                Debug.trace(t);
     100            }
     101        }
     102        return super.toString();
     103    }
     104
    80105    private static final Primitive1 GENERIC_FUNCTION_DISCRIMINATING_FUNCTION =
    81106        new Primitive1("generic-function-discriminating-function", PACKAGE_SYS, false)
Note: See TracChangeset for help on using the changeset viewer.