Changeset 4529

Timestamp:

10/25/03 16:35:13 (19 years ago)

Author:

piso

Message:

JVM compiler object table support: recall(), forget(), REMEMBER.

File:

• trunk/j/src/org/armedbear/lisp/Lisp.java (modified) (5 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.167 2003-10-17 14:08:35 piso Exp $
+ * $Id: Lisp.java,v 1.168 2003-10-25 16:35:13 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -23 +23 @@
 
 import java.math.BigInteger;
+import java.util.Hashtable;
 import java.util.Random;
 
@@ -1037 +1038 @@
         Package pkg = Packages.findPackage(packageName);
         if (pkg == null)
-            throw new ConditionThrowable(new LispError(packageName + " is not the name of a package"));
+            throw new ConditionThrowable(new LispError(packageName +
+                                                       " is not the name of a package"));
         return pkg.intern(name);
     }
+
+    // The jvm compiler's object table.
+    private static final Hashtable objectTable = new Hashtable();
+
+    public static final LispObject recall(LispString key)
+    {
+        return (LispObject) objectTable.get(((LispString)key).getValue());
+    }
+
+    public static final void forget(LispString key)
+    {
+        objectTable.remove(((LispString)key).getValue());
+    }
+
+    public static final Primitive2 REMEMBER =
+        new Primitive2("remember", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject first, LispObject second)
+            throws ConditionThrowable
+        {
+            objectTable.put(LispString.getValue(first), second);
+            return NIL;
+        }
+    };
 
     public static final Symbol export(String name, Package pkg)
@@ -1222 +1248 @@
     // ### start-profiler
     public static final Primitive0 START_PROFILER =
-        new Primitive0("start-profiler", PACKAGE_EXT, true) {
+        new Primitive0("start-profiler", PACKAGE_EXT, true)
+    {
         public LispObject execute() throws ConditionThrowable
         {
@@ -1252 +1279 @@
     // ### stop-profiler
     public static final Primitive0 STOP_PROFILER =
-        new Primitive0("stop-profiler", PACKAGE_EXT, true) {
+        new Primitive0("stop-profiler", PACKAGE_EXT, true)
+    {
         public LispObject execute() throws ConditionThrowable
         {