[armedbear-cvs] r12461 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Feb 13 16:43:16 2010
New Revision: 12461

Log:
In the category of making things readable:
  readable class cast exceptions for NULL and
  UNBOUND values.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Sat Feb 13 16:43:16 2010
@@ -2619,23 +2619,25 @@
   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);