Changeset 8653


Ignore:
Timestamp:
02/28/05 00:55:20 (16 years ago)
Author:
piso
Message:

public String unreadableString(Symbol symbol)

File:
1 edited

Legend:

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

    r8652 r8653  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: LispObject.java,v 1.119 2005-02-27 20:10:25 piso Exp $
     5 * $Id: LispObject.java,v 1.120 2005-02-28 00:55:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    492492    }
    493493
     494    public String unreadableString(Symbol symbol) throws ConditionThrowable
     495    {
     496        StringBuffer sb = new StringBuffer("#<");
     497        sb.append(symbol.writeToString());
     498        sb.append(" {");
     499        sb.append(Integer.toHexString(System.identityHashCode(this)).toUpperCase());
     500        sb.append("}>");
     501        return sb.toString();
     502    }
     503
    494504    // Special operator
    495505    public LispObject execute(LispObject args, Environment env)
Note: See TracChangeset for help on using the changeset viewer.