In the category of making things readable:

  readable class cast exceptions for NULL and
  UNBOUND values.
parent 6ffc708d
......@@ -2619,23 +2619,25 @@ public final class Lisp
public static final Symbol _COMPILE_FILE_ENVIRONMENT_ =
exportSpecial("*COMPILE-FILE-ENVIRONMENT*", PACKAGE_SYS, NIL);
public static final LispObject UNBOUND_VALUE = new LispObject()
public static final LispObject UNBOUND_VALUE = new unboundValue();
private static class unboundValue extends LispObject
{
@Override
public String writeToString()
{
@Override
public String writeToString()
{
return "#<UNBOUND>";
}
};
return "#<UNBOUND>";
}
}
public static final LispObject NULL_VALUE = new LispObject()
public static final LispObject NULL_VALUE = new nullValue();
private static class nullValue extends LispObject
{
@Override
public String writeToString()
{
@Override
public String writeToString()
{
return "null";
}
};
return "null";
}
}
public static final Symbol _SLOT_UNBOUND_ =
exportConstant("+SLOT-UNBOUND+", PACKAGE_SYS, UNBOUND_VALUE);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment