Changeset 12819


Ignore:
Timestamp:
07/22/10 18:13:22 (12 years ago)
Author:
ehuelsmann
Message:

Remove to-be-removed-by-0.22 deprecated symbols, now that we are 0.22.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
3 edited

Legend:

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

    r12634 r12819  
    11211121
    11221122
    1123     static {
    1124         //FIXME: this block has been added for pre-0.16 compatibility
    1125         // and can be removed the latest at release 0.22
    1126         PACKAGE_EXT.export(intern("MAKE-THREAD", PACKAGE_THREADS));
    1127         PACKAGE_EXT.export(intern("THREADP", PACKAGE_THREADS));
    1128         PACKAGE_EXT.export(intern("THREAD-ALIVE-P", PACKAGE_THREADS));
    1129         PACKAGE_EXT.export(intern("THREAD-NAME", PACKAGE_THREADS));
    1130         PACKAGE_EXT.export(intern("MAPCAR-THREADS", PACKAGE_THREADS));
    1131         PACKAGE_EXT.export(intern("DESTROY-THREAD", PACKAGE_THREADS));
    1132         PACKAGE_EXT.export(intern("INTERRUPT-THREAD", PACKAGE_THREADS));
    1133         PACKAGE_EXT.export(intern("CURRENT-THREAD", PACKAGE_THREADS));
    1134     }
    1135 
    11361123    // ### use-fast-calls
    11371124    private static final Primitive USE_FAST_CALLS =
  • trunk/abcl/src/org/armedbear/lisp/autoloads.lisp

    r12756 r12819  
    346346(export '(make-mutex get-mutex release-mutex with-mutex))
    347347
    348 (progn
    349   ;; block to be removed at 0.22
    350   ;; It exists solely for pre-0.17 compatibility
    351   ;; FIXME 0.22
    352   (in-package "EXTENSIONS")
    353   (export '(mailbox-send mailbox-empty-p mailbox-read mailbox-peek))
    354   (export '(make-thread-lock thread-lock thread-unlock with-thread-lock))
    355   (export '(with-mutex make-mutex get-mutex release-mutex)))
    356 
    357 ;; end of 0.22 block
    358348
    359349(in-package "EXTENSIONS")
  • trunk/abcl/src/org/armedbear/lisp/threads.lisp

    r12587 r12819  
    11;;; threads.lisp
    22;;;
    3 ;;; Copyright (C) 2009 Erik Huelsmann <ehuelsmann@common-lisp.net>
     3;;; Copyright (C) 2009-2010 Erik Huelsmann <ehuelsmann@common-lisp.net>
    44;;;
    55;;; $Id$
     
    143143          ,@body))))
    144144
    145 (defun thread-lock (lock)
    146   "Deprecated; due for removal in 0.22"
    147   (declare (ignore lock)))
    148 (defun thread-unlock (lock)
    149   "Deprecated; due for removal in 0.22"
    150   (declare (ignore lock)))
Note: See TracChangeset for help on using the changeset viewer.