Changeset 9155


Ignore:
Timestamp:
05/12/05 19:15:07 (16 years ago)
Author:
piso
Message:

writeToString()

File:
1 edited

Legend:

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

    r9045 r9155  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StructureObject.java,v 1.48 2005-05-03 01:48:31 piso Exp $
     5 * $Id: StructureObject.java,v 1.49 2005-05-12 19:15:07 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    171171                    LispObject slotName = slotDefinition.AREF(1);
    172172                    Debug.assertTrue(slotName instanceof Symbol);
    173                     Symbol keyword =
    174                         PACKAGE_KEYWORD.intern(((Symbol)slotName).getName());
    175                     sb.append(keyword.writeToString());
     173                    sb.append(':');
     174                    sb.append(((Symbol)slotName).name.getStringValue());
    176175                    sb.append(' ');
    177176                    if (printCircle) {
Note: See TracChangeset for help on using the changeset viewer.