Changeset 12053


Ignore:
Timestamp:
07/21/09 09:43:29 (13 years ago)
Author:
Mark Evenson
Message:

Move additional symbols into THREADS package.

The symbols

THREADP THREAD-UNLOCK THREAD-LOCK THREAD-NAME THREAD-ALIVE-P
CURRENT-THREAD DESTROY-THREAD INTERRUPT-THREAD WITH-THREAD-LOCK
MAKE-THREAD-LOCK MAKE-THREAD INTERRUPT-THREAD
MAPCAR-THREADS
GET-MUTEX MAKE-MUTEX WITH-MUTEX RELEASE-MUTEX

have been moved from EXTENSIONS into THREADS.

These primitives are still part of the EXTENSIONS package but are now
to be considered as deprecated, marked to be removed with 0.22.

Location:
trunk/abcl
Files:
1 deleted
10 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/CHANGES

    r12046 r12053  
    11Version 0.16.0
    22  Summary of changes:
    3   * Implementation of Franz Allegro CL Gates MP primitive (Tobias Rittweiler).
    4   * improve performance of CLOS eql-specializers (Anton Vodonosov).
     3  * Improve performance of CLOS eql-specializers via cache (Anton Vodonosov).
    54  * 'build-from-lisp.sh' shell script (Tobias Rittweiler).
     5  * New threading primitives aligned with Java/JVM constructs (Erik Huselman)
     6
     7      SYNCHRONIZED-ON
     8      OBJECT-NOTIFY
     9      OBJECT-NOTIFY-ALL
     10
     11  * THREADS package created to hold threads related primitives:
     12
     13      THREADP THREAD-UNLOCK THREAD-LOCK THREAD-NAME THREAD-ALIVE-P
     14      CURRENT-THREAD DESTROY-THREAD INTERRUPT-THREAD WITH-THREAD-LOCK
     15      MAKE-THREAD-LOCK MAKE-THREAD INTERRUPT-THREAD
     16
     17      MAPCAR-THREADS
     18     
     19      GET-MUTEX MAKE-MUTEX WITH-MUTEX RELEASE-MUTEX
     20
     21    These primitives are still part of the EXTENSIONS package but are
     22    now to be considered as deprecated, marked to be removed with
     23    0.22.
     24
    625 
    726Version 0.15.0
  • trunk/abcl/src/org/armedbear/lisp/Autoload.java

    r12028 r12053  
    490490        autoload(PACKAGE_EXT, "assq", "assq", true);
    491491        autoload(PACKAGE_EXT, "assql", "assql", true);
    492         autoload(PACKAGE_EXT, "close-gate", "Gate", true);
    493492        autoload(PACKAGE_EXT, "file-directory-p", "probe_file", true);
    494493        autoload(PACKAGE_EXT, "gc", "gc", true);
    495494        autoload(PACKAGE_EXT, "get-floating-point-modes", "FloatFunctions", true);
    496         autoload(PACKAGE_EXT, "get-mutex", "Mutex", true);
    497   autoload(PACKAGE_EXT, "make-gate", "Gate", true);
    498495        autoload(PACKAGE_EXT, "mailbox-empty-p", "Mailbox", true);
    499496        autoload(PACKAGE_EXT, "mailbox-peek", "Mailbox", true);
     
    501498        autoload(PACKAGE_EXT, "mailbox-send", "Mailbox", true);
    502499        autoload(PACKAGE_EXT, "make-mailbox", "Mailbox", true);
    503         autoload(PACKAGE_EXT, "make-mutex", "Mutex", true);
    504500        autoload(PACKAGE_EXT, "make-slime-input-stream", "SlimeInputStream", true);
    505501        autoload(PACKAGE_EXT, "make-slime-output-stream", "SlimeOutputStream", true);
    506         autoload(PACKAGE_EXT, "make-thread-lock", "ThreadLock", true);
    507         autoload(PACKAGE_EXT, "open-gate", "Gate", true);
    508         autoload(PACKAGE_EXT, "open-gate-p", "Gate", true);
    509502        autoload(PACKAGE_EXT, "probe-directory", "probe_file", true);
    510         autoload(PACKAGE_EXT, "release-mutex", "Mutex", true);
    511503        autoload(PACKAGE_EXT, "set-floating-point-modes", "FloatFunctions", true);
    512504        autoload(PACKAGE_EXT, "simple-string-fill", "StringFunctions");
     
    515507        autoload(PACKAGE_EXT, "string-find", "StringFunctions");
    516508        autoload(PACKAGE_EXT, "string-position", "StringFunctions");
    517         autoload(PACKAGE_EXT, "thread-lock", "ThreadLock", true);
    518         autoload(PACKAGE_EXT, "thread-unlock", "ThreadLock", true);
    519         autoload(PACKAGE_EXT, "wait-open-gate", "Gate", true);
    520509        autoload(PACKAGE_JAVA, "%jnew-proxy", "JProxy");
    521510        autoload(PACKAGE_JAVA, "%find-java-class", "JavaClass");
     
    682671        autoload(PACKAGE_SYS, "zip", "zip", true);
    683672
     673        autoload(PACKAGE_THREADS, "make-mutex", "Mutex", true);
     674        autoload(PACKAGE_THREADS, "get-mutex", "Mutex", true);
     675        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);
     679
    684680        autoload(Symbol.COPY_LIST, "copy_list");
    685681
  • trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java

    r12028 r12053  
    112112  public static final BuiltInClass METHOD_COMBINATION   = addClass(Symbol.METHOD_COMBINATION);
    113113  public static final BuiltInClass MUTEX                = addClass(Symbol.MUTEX);
    114   public static final BuiltInClass GATE                 = addClass(Symbol.GATE);
    115114  public static final BuiltInClass NIL_VECTOR           = addClass(Symbol.NIL_VECTOR);
    116115  public static final BuiltInClass NULL                 = addClass(Symbol.NULL);
  • trunk/abcl/src/org/armedbear/lisp/Lisp.java

    r12050 r12053  
    119119        PACKAGE_LISP.usePackage(PACKAGE_EXT);
    120120        PACKAGE_LISP.usePackage(PACKAGE_SYS);
     121  PACKAGE_THREADS.usePackage(PACKAGE_CL);
    121122      }
    122123    catch (Throwable t)
  • trunk/abcl/src/org/armedbear/lisp/Mutex.java

    r11754 r12053  
    102102    }
    103103
     104    static {
     105      //FIXME: this block has been added for pre-0.16 compatibility
     106      // and can be removed the latest at release 0.22
     107      try {
     108  PACKAGE_EXT.export(Symbol.intern("WITH-MUTEX", PACKAGE_THREADS));
     109  PACKAGE_EXT.export(Symbol.intern("WITH-THREAD-LOCK", PACKAGE_THREADS));
     110      } catch (ConditionThrowable t) {
     111  Debug.bug();
     112      }
     113    }
     114     
    104115    // ### make-mutex => mutex
    105116    private static final Primitive MAKE_MUTEX =
  • trunk/abcl/src/org/armedbear/lisp/Symbol.java

    r12030 r12053  
    28922892  public static final Symbol MUTEX =
    28932893    PACKAGE_EXT.addExternalSymbol("MUTEX");
    2894   public static final Symbol GATE =
    2895     PACKAGE_EXT.addExternalSymbol("GATE");
    28962894  public static final Symbol THREAD =
    28972895    PACKAGE_EXT.addExternalSymbol("THREAD");
  • trunk/abcl/src/org/armedbear/lisp/ThreadLock.java

    r11488 r12053  
    7373    // ### make-thread-lock
    7474    private static final Primitive MAKE_THREAD_LOCK =
    75         new Primitive("make-thread-lock", PACKAGE_EXT, true)
     75        new Primitive("make-thread-lock", PACKAGE_THREADS, true)
    7676    {
    7777        @Override
     
    8484    // ### thread-lock lock
    8585    private static final Primitive THREAD_LOCK =
    86         new Primitive("thread-lock", PACKAGE_EXT, true)
     86        new Primitive("thread-lock", PACKAGE_THREADS, true)
    8787    {
    8888        @Override
     
    9797    // ### thread-unlock lock
    9898    private static final Primitive THREAD_UNLOCK =
    99         new Primitive("thread-unlock", PACKAGE_EXT, true)
     99        new Primitive("thread-unlock", PACKAGE_THREADS, true)
    100100    {
    101101        @Override
     
    107107        }
    108108    };
     109
     110    static {
     111      //FIXME: this block has been added for pre-0.16 compatibility
     112      // and can be removed the latest at release 0.22
     113      try {
     114  PACKAGE_EXT.export(Symbol.intern("MAKE-THREAD-LOCK", PACKAGE_THREADS));
     115  PACKAGE_EXT.export(Symbol.intern("THREAD-LOCK", PACKAGE_THREADS));
     116  PACKAGE_EXT.export(Symbol.intern("THREAD-UNLOCK", PACKAGE_THREADS));
     117      } catch (ConditionThrowable t) {
     118  Debug.bug();
     119      }
     120    }
    109121}
  • trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

    r12024 r12053  
    294294(export '(grovel-java-definitions compile-system))
    295295(autoload '(grovel-java-definitions compile-system) "compile-system")
    296 (export 'with-thread-lock)
    297 (autoload-macro 'with-thread-lock)
    298296(export 'aver)
    299297(autoload-macro 'aver)
     
    301299(export 'collect)
    302300(autoload-macro 'collect)
    303 (export 'with-mutex)
    304 (autoload-macro 'with-mutex)
    305301(export 'compile-file-if-needed)
    306302(autoload 'compile-file-if-needed "compile-file")
     
    316312(autoload 'make-dialog-prompt-stream "gui")
    317313
    318 
    319314;; JVM compiler.
    320315(in-package "JVM")
     
    325320(export 'compiler-let)
    326321(autoload 'compiler-let)
     322
     323(in-package "THREADS")
     324(export 'with-thread-lock)
     325(ext:autoload-macro 'with-thread-lock)
     326(export 'with-mutex)
     327(ext:autoload-macro 'with-mutex)
  • trunk/abcl/src/org/armedbear/lisp/with-mutex.lisp

    r11391 r12053  
    3030;;; exception statement from your version.
    3131
    32 (in-package #:extensions)
     32(in-package #:threads)
    3333
    3434(defmacro with-mutex ((mutex) &body body)
  • trunk/abcl/src/org/armedbear/lisp/with-thread-lock.lisp

    r11391 r12053  
    3030;;; exception statement from your version.
    3131
    32 (in-package "EXTENSIONS")
     32(in-package #:threads)
    3333
    3434(defmacro with-thread-lock ((lock) &body body)
Note: See TracChangeset for help on using the changeset viewer.