Changeset 4423


Ignore:
Timestamp:
10/17/03 13:10:48 (18 years ago)
Author:
piso
Message:

unreadableString()

File:
1 edited

Legend:

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

    r3929 r4423  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: LispObject.java,v 1.60 2003-09-20 17:02:04 piso Exp $
     5 * $Id: LispObject.java,v 1.61 2003-10-17 13:10:48 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    345345    }
    346346
     347    public String unreadableString(String s)
     348    {
     349        StringBuffer sb = new StringBuffer("#<");
     350        sb.append(s);
     351        sb.append(" @ #x");
     352        sb.append(Integer.toHexString(System.identityHashCode(this)));
     353        sb.append(">");
     354        return sb.toString();
     355    }
     356
    347357    // Special operator
    348358    public LispObject execute(LispObject args, Environment env)
Note: See TracChangeset for help on using the changeset viewer.