Changeset 12059


Ignore:
Timestamp:
07/24/09 22:05:31 (12 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:
1 added
3 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Autoload.java

    r12053 r12059  
    493493        autoload(PACKAGE_EXT, "gc", "gc", true);
    494494        autoload(PACKAGE_EXT, "get-floating-point-modes", "FloatFunctions", true);
    495         autoload(PACKAGE_EXT, "mailbox-empty-p", "Mailbox", true);
    496         autoload(PACKAGE_EXT, "mailbox-peek", "Mailbox", true);
    497         autoload(PACKAGE_EXT, "mailbox-read", "Mailbox", true);
    498         autoload(PACKAGE_EXT, "mailbox-send", "Mailbox", true);
    499         autoload(PACKAGE_EXT, "make-mailbox", "Mailbox", true);
    500495        autoload(PACKAGE_EXT, "make-slime-input-stream", "SlimeInputStream", true);
    501496        autoload(PACKAGE_EXT, "make-slime-output-stream", "SlimeOutputStream", true);
     
    674669        autoload(PACKAGE_THREADS, "get-mutex", "Mutex", true);
    675670        autoload(PACKAGE_THREADS, "release-mutex", "Mutex", true);
    676         autoload(PACKAGE_THREADS, "make-thread-lock", "ThreadLock", true);
    677         autoload(PACKAGE_THREADS, "thread-lock", "ThreadLock", true);
    678         autoload(PACKAGE_THREADS, "thread-unlock", "ThreadLock", true);
    679671
    680672        autoload(Symbol.COPY_LIST, "copy_list");
  • trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

    r12053 r12059  
    292292(autoload 'socket-peer-address "socket")
    293293
     294(in-package "THREADS")
     295(sys::export '(mailbox-send mailbox-empty-p mailbox-read mailbox-peek))
     296(sys::autoload '(mailbox-send mailbox-empty-p mailbox-read mailbox-peek)
     297    "threads")
     298
     299(sys::export '(make-thread-lock thread-lock thread-unlock with-thread-lock))
     300(sys::autoload '(make-thread-lock thread-lock thread-unlock) "threads")
     301(sys::autoload-macro 'with-thread-lock "threads")
     302
     303;; block to be removed at 0.22
     304
     305(in-package "EXTENSIONS")
     306
     307(export '(mailbox-send mailbox-empty-p mailbox-read mailbox-peek))
     308(export '(make-thread-lock thread-lock thread-unlock with-thread-lock))
     309
     310;; end of 0.22 block
     311
     312(in-package "EXTENSIONS")
     313
    294314(export '(grovel-java-definitions compile-system))
    295315(autoload '(grovel-java-definitions compile-system) "compile-system")
Note: See TracChangeset for help on using the changeset viewer.