Changeset 12710

Timestamp:

05/19/10 22:27:21 (13 years ago)

Author:

ehuelsmann

Message:

Move access to uninterned symbols array to Load.java for
future use by the compiler.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• FaslReader.java (modified) (1 diff)
• Load.java (modified) (1 diff)

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

@@ -287 +287 @@
         public LispObject execute(Stream stream, char c, int n)
         {
-            LispThread thread = LispThread.currentThread();
-            LispObject uninternedSymbols =
-                Load._FASL_UNINTERNED_SYMBOLS_.symbolValue(thread);
-
-            if (! (uninternedSymbols instanceof Cons)) // it must be a vector
-                return uninternedSymbols.AREF(n);
-
-            // During normal loading, we won't get to this bit, however,
-            // with eval-when processing, we may need to fall back to
-            // *FASL-UNINTERNED-SYMBOLS* being an alist structure
-            LispObject label = LispInteger.getInstance(n);
-            while (uninternedSymbols != NIL)
-              {
-                LispObject item = uninternedSymbols.car();
-                if (label.eql(item.cdr()))
-                  return item.car();
-
-                uninternedSymbols = uninternedSymbols.cdr();
-              }
-            return error(new LispError("No entry for uninterned symbol."));
+            return Load.getUninternedSymbol(n);
         }
     };

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

@@ -381 +381 @@
         internSpecial("*FASL-UNINTERNED-SYMBOLS*", PACKAGE_SYS, NIL);
 
+    // Function to access the uninterned symbols "array"
+    public final static LispObject getUninternedSymbol(int n) {
+        LispThread thread = LispThread.currentThread();
+        LispObject uninternedSymbols =
+            Load._FASL_UNINTERNED_SYMBOLS_.symbolValue(thread);
+
+        if (! (uninternedSymbols instanceof Cons)) // it must be a vector
+            return uninternedSymbols.AREF(n);
+
+        // During normal loading, we won't get to this bit, however,
+        // with eval-when processing, we may need to fall back to
+        // *FASL-UNINTERNED-SYMBOLS* being an alist structure
+        LispObject label = LispInteger.getInstance(n);
+        while (uninternedSymbols != NIL)
+            {
+                LispObject item = uninternedSymbols.car();
+                if (label.eql(item.cdr()))
+                  return item.car();
+
+                uninternedSymbols = uninternedSymbols.cdr();
+            }
+        return error(new LispError("No entry for uninterned symbol."));
+    }
+
+
     // ### init-fasl &key version
     private static final Primitive INIT_FASL = new init_fasl();