Changeset 12059

Timestamp:

07/24/09 22:05:31 (13 years ago)

Author:

ehuelsmann

Message:

Lisp-side implementation for ThreadLock? and Mailbox,
both put in threads.lisp.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Autoload.java (modified) (2 diffs)
• Mailbox.java (deleted)
• ThreadLock.java (deleted)
• autoloads.lisp (modified) (1 diff)
• threads.lisp (added)
• with-thread-lock.lisp (deleted)

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

@@ -493 +493 @@
         autoload(PACKAGE_EXT, "gc", "gc", true);
         autoload(PACKAGE_EXT, "get-floating-point-modes", "FloatFunctions", true);
-        autoload(PACKAGE_EXT, "mailbox-empty-p", "Mailbox", true);
-        autoload(PACKAGE_EXT, "mailbox-peek", "Mailbox", true);
-        autoload(PACKAGE_EXT, "mailbox-read", "Mailbox", true);
-        autoload(PACKAGE_EXT, "mailbox-send", "Mailbox", true);
-        autoload(PACKAGE_EXT, "make-mailbox", "Mailbox", true);
         autoload(PACKAGE_EXT, "make-slime-input-stream", "SlimeInputStream", true);
         autoload(PACKAGE_EXT, "make-slime-output-stream", "SlimeOutputStream", true);
@@ -674 +669 @@
         autoload(PACKAGE_THREADS, "get-mutex", "Mutex", true);
         autoload(PACKAGE_THREADS, "release-mutex", "Mutex", true);
-        autoload(PACKAGE_THREADS, "make-thread-lock", "ThreadLock", true);
-        autoload(PACKAGE_THREADS, "thread-lock", "ThreadLock", true);
-        autoload(PACKAGE_THREADS, "thread-unlock", "ThreadLock", true);
 
         autoload(Symbol.COPY_LIST, "copy_list");

trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

@@ -292 +292 @@
 (autoload 'socket-peer-address "socket")
 
+(in-package "THREADS")
+(sys::export '(mailbox-send mailbox-empty-p mailbox-read mailbox-peek))
+(sys::autoload '(mailbox-send mailbox-empty-p mailbox-read mailbox-peek)
+    "threads")
+
+(sys::export '(make-thread-lock thread-lock thread-unlock with-thread-lock))
+(sys::autoload '(make-thread-lock thread-lock thread-unlock) "threads")
+(sys::autoload-macro 'with-thread-lock "threads")
+
+;; block to be removed at 0.22
+
+(in-package "EXTENSIONS")
+
+(export '(mailbox-send mailbox-empty-p mailbox-read mailbox-peek))
+(export '(make-thread-lock thread-lock thread-unlock with-thread-lock))
+
+;; end of 0.22 block
+
+(in-package "EXTENSIONS")
+
 (export '(grovel-java-definitions compile-system))
 (autoload '(grovel-java-definitions compile-system) "compile-system")