Changeset 4588


Ignore:
Timestamp:
10/31/03 17:46:26 (19 years ago)
Author:
piso
Message:

Recognize undefined variables.

File:
1 edited

Legend:

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

    r4460 r4588  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: describe.java,v 1.8 2003-10-19 18:50:37 piso Exp $
     5 * $Id: describe.java,v 1.9 2003-10-31 17:46:26 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5050                }
    5151                sb.append(".\n");
     52                LispObject value = symbol.getSymbolValue();
    5253                if (symbol.isSpecialVariable()) {
    5354                    sb.append("It is a ");
    5455                    sb.append(symbol.isConstant() ? "constant" : "special variable");
    5556                    sb.append("; ");
    56                     LispObject value = symbol.getSymbolValue();
    5757                    if (value != null) {
    5858                        sb.append("its value is ");
     
    6060                    } else
    6161                        sb.append("it is unbound");
     62                    sb.append(".\n");
     63                } else if (value != null) {
     64                    sb.append("It is an undefined variable; its value is ");
     65                    sb.append(value);
    6266                    sb.append(".\n");
    6367                }
     
    9599                    LispObject[] array = plist.copyToArray();
    96100                    for (int i = 0; i < array.length; i += 2) {
    97                         LispObject indicator = array[i];
    98                         LispObject value = array[i+1];
    99101                        sb.append("  ");
    100                         sb.append(indicator);
     102                        sb.append(array[i]);
    101103                        sb.append(' ');
    102                         sb.append(value);
     104                        sb.append(array[i+1]);
    103105                        sb.append('\n');
    104106                    }
Note: See TracChangeset for help on using the changeset viewer.