Changeset 12037

Timestamp:

07/11/09 12:46:04 (14 years ago)

Author:

ehuelsmann

Message:

Add a method to LispObject to be used with the Java locking API.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• JavaObject.java (modified) (1 diff)
• LispObject.java (modified) (1 diff)

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

@@ -175 +175 @@
     {
         return javaInstance();
+    }
+
+    /** Returns the encapsulated Java object for
+     * interoperability with wait, notify, synchronized, etc.
+     *
+     * @return The encapsulated object
+     */
+    @Override
+    public Object lockableInstance() {
+        return obj;
     }
 

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

@@ -113 +113 @@
   }
 
+  /** This method returns 'this' by default, but allows
+   * objects to return different values to increase Java
+   * interoperability
+   * 
+   * @return An object to be used with synchronized, wait, notify, etc
+   * @throws org.armedbear.lisp.ConditionThrowable
+   */
+  public Object lockableInstance() throws ConditionThrowable
+  {
+      return this;
+  }
+
+
   public LispObject car() throws ConditionThrowable
   {