[armedbear-cvs] r12819 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Jul 22 14:13:22 2010
New Revision: 12819

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

Modified:
   trunk/abcl/src/org/armedbear/lisp/LispThread.java
   trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
   trunk/abcl/src/org/armedbear/lisp/threads.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/LispThread.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispThread.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispThread.java	Thu Jul 22 14:13:22 2010
@@ -1120,19 +1120,6 @@
     };
 
 
-    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 =
         new Primitive("use-fast-calls", PACKAGE_SYS, true)

Modified: trunk/abcl/src/org/armedbear/lisp/autoloads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/autoloads.lisp	Thu Jul 22 14:13:22 2010
@@ -345,16 +345,6 @@
 (export '(make-thread-lock thread-lock thread-unlock with-thread-lock))
 (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")
 

Modified: trunk/abcl/src/org/armedbear/lisp/threads.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/threads.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/threads.lisp	Thu Jul 22 14:13:22 2010
@@ -1,6 +1,6 @@
 ;;; threads.lisp
 ;;;
-;;; Copyright (C) 2009 Erik Huelsmann <ehuelsmann at common-lisp.net>
+;;; Copyright (C) 2009-2010 Erik Huelsmann <ehuelsmann at common-lisp.net>
 ;;;
 ;;; $Id$
 ;;;
@@ -142,9 +142,3 @@
        (synchronized-on ,glock
           , at 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)))