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

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Jan 25 01:58:48 2010
New Revision: 12400

Log:
Make NIL-as-a-symbol available for use for the compiler.
  Shaves off a few kB from our JAR.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Nil.java
   trunk/abcl/src/org/armedbear/lisp/known-symbols.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/Nil.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Nil.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Nil.java	Mon Jan 25 01:58:48 2010
@@ -37,7 +37,7 @@
 
 public final class Nil extends Symbol
 {
-    final static Nil NIL = new Nil(PACKAGE_CL);
+    final public static Symbol NIL = new Nil(PACKAGE_CL);
 
     public Nil(Package pkg)
     {

Modified: trunk/abcl/src/org/armedbear/lisp/known-symbols.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/known-symbols.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/known-symbols.lisp	Mon Jan 25 01:58:48 2010
@@ -51,6 +51,7 @@
   (initialize-known-symbols "org.armedbear.lisp.Symbol" symbols)
   (initialize-known-symbols "org.armedbear.lisp.Keyword" symbols)
   (initialize-known-symbols "org.armedbear.lisp.Lisp" symbols)
+  (initialize-known-symbols "org.armedbear.lisp.Nil" symbols)
 
   (defun lookup-known-symbol (symbol)
     "Returns the name of the field and its class designator