Changeset 12461

Timestamp:

02/13/10 21:43:16 (13 years ago)

Author:

ehuelsmann

Message:

In the category of making things readable:

readable class cast exceptions for NULL and
UNBOUND values.

File:

• trunk/abcl/src/org/armedbear/lisp/Lisp.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/Lisp.java

@@ -2620 +2620 @@
     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>";
-      }
-    };
-
-  public static final LispObject NULL_VALUE = new LispObject()
+      return "#<UNBOUND>";
+    }
+  }
+
+  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_ =