Changeset 4321


Ignore:
Timestamp:
10/12/03 03:37:52 (19 years ago)
Author:
piso
Message:

toString()

File:
1 edited

Legend:

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

    r4317 r4321  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StandardObject.java,v 1.6 2003-10-11 20:40:25 piso Exp $
     5 * $Id: StandardObject.java,v 1.7 2003-10-12 03:37:52 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7171    }
    7272
     73    public String toString()
     74    {
     75        StringBuffer sb = new StringBuffer("#<");
     76        if (cls != null)
     77            sb.append(cls.getSymbol().getName());
     78        else
     79            sb.append("STANDARD-OBJECT");
     80        sb.append(" @ #x");
     81        sb.append(Integer.toHexString(hashCode()));
     82        sb.append(">");
     83        return sb.toString();
     84    }
     85
    7386    private static final Primitive1 STD_INSTANCE_SLOTS =
    7487        new Primitive1("std-instance-slots", PACKAGE_SYS, false)
Note: See TracChangeset for help on using the changeset viewer.