Changeset 11491

Timestamp:

12/27/08 15:28:48 (13 years ago)

Author:

ehuelsmann

Message:

Cleanup: Add a way to add and initialize a special all at once.

Note: Even though this commit applies this principle only to CDR6,

a follow up commit should be created for this to be used in general.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Lisp.java (modified) (1 diff)
• Package.java (modified) (1 diff)
• Symbol.java (modified) (1 diff)

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

@@ -2530 +2530 @@
 
 
-  // Extentions
-  static {
-    Symbol._INSPECTOR_HOOK_.initializeSpecial(NIL);
-  }
-
   private static final void loadClass(String className)
   {

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

@@ -300 +300 @@
     }
 
+    /** Initializes the symbol as a special variables and assigns it
+        a value, just like DEFVAR would.
+    */
+    public synchronized Symbol addExternalSymbol(String symbolName,
+                                                 LispObject specialValue)
+    {
+        final Symbol symbol = addExternalSymbol(symbolName);
+        symbol.initializeSpecial(specialValue);
+
+        return symbol;
+    }
+
     public synchronized Symbol intern(String symbolName)
     {

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

@@ -3014 +3014 @@
   // CDR6
   public static final Symbol _INSPECTOR_HOOK_ =
-    PACKAGE_EXT.addExternalSymbol("*INSPECTOR-HOOK*");
+    PACKAGE_EXT.addExternalSymbol("*INSPECTOR-HOOK*", NIL);
 
 }