Changeset 12819

Timestamp:

07/22/10 18:13:22 (13 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:

• LispThread.java (modified) (1 diff)
• autoloads.lisp (modified) (1 diff)
• threads.lisp (modified) (2 diffs)

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

@@ -1121 +1121 @@
 
 
-    static {
-        //FIXME: this block has been added for pre-0.16 compatibility
-        // and can be removed the latest at release 0.22
-        PACKAGE_EXT.export(intern("MAKE-THREAD", PACKAGE_THREADS));
-        PACKAGE_EXT.export(intern("THREADP", PACKAGE_THREADS));
-        PACKAGE_EXT.export(intern("THREAD-ALIVE-P", PACKAGE_THREADS));
-        PACKAGE_EXT.export(intern("THREAD-NAME", PACKAGE_THREADS));
-        PACKAGE_EXT.export(intern("MAPCAR-THREADS", PACKAGE_THREADS));
-        PACKAGE_EXT.export(intern("DESTROY-THREAD", PACKAGE_THREADS));
-        PACKAGE_EXT.export(intern("INTERRUPT-THREAD", PACKAGE_THREADS));
-        PACKAGE_EXT.export(intern("CURRENT-THREAD", PACKAGE_THREADS));
-    }
-
     // ### use-fast-calls
     private static final Primitive USE_FAST_CALLS =

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

@@ -346 +346 @@
 (export '(make-mutex get-mutex release-mutex with-mutex))
 
-(progn
-  ;; block to be removed at 0.22
-  ;; It exists solely for pre-0.17 compatibility
-  ;; FIXME 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))
-  (export '(with-mutex make-mutex get-mutex release-mutex)))
-
-;; end of 0.22 block
 
 (in-package "EXTENSIONS")

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

@@ -1 +1 @@
 ;;; threads.lisp
 ;;;
-;;; Copyright (C) 2009 Erik Huelsmann <ehuelsmann@common-lisp.net>
+;;; Copyright (C) 2009-2010 Erik Huelsmann <ehuelsmann@common-lisp.net>
 ;;;
 ;;; $Id$
@@ -143 +143 @@
           ,@body))))
 
-(defun thread-lock (lock)
-  "Deprecated; due for removal in 0.22"
-  (declare (ignore lock)))
-(defun thread-unlock (lock)
-  "Deprecated; due for removal in 0.22"
-  (declare (ignore lock)))