Changeset 8606


Ignore:
Timestamp:
02/18/05 18:20:47 (17 years ago)
Author:
piso
Message:

writeToString(): print keywords properly.

File:
1 edited

Legend:

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

    r8405 r8606  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StructureObject.java,v 1.43 2005-01-27 12:45:11 piso Exp $
     5 * $Id: StructureObject.java,v 1.44 2005-02-18 18:20:47 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    179179                    sb.append(' ');
    180180                    SimpleVector slotDefinition = (SimpleVector) effectiveSlotsArray[i];
     181                    // FIXME getRowMajor(1)
    181182                    LispObject slotName = slotDefinition.getRowMajor(1);
    182                     sb.append(':');
    183                     sb.append(slotName.writeToString());
     183                    Debug.assertTrue(slotName instanceof Symbol);
     184                    Symbol keyword =
     185                        PACKAGE_KEYWORD.intern(((Symbol)slotName).getName());
     186                    sb.append(keyword.writeToString());
    184187                    sb.append(' ');
    185188                    if (printCircle) {
Note: See TracChangeset for help on using the changeset viewer.