[cl-irc-cvs] r227 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Sep 23 09:14:50 2012
New Revision: 227

Log:
Threading now located in the THREADS package on abcl.

Modified:
   trunk/protocol.lisp

Modified: trunk/protocol.lisp
==============================================================================
--- trunk/protocol.lisp	Sun Sep 23 07:32:21 2012	(r226)
+++ trunk/protocol.lisp	Sun Sep 23 09:14:50 2012	(r227)
@@ -294,7 +294,7 @@
   #+lispworks (mp:process-run-function name nil function)
   #+sb-thread (sb-thread:make-thread function :name name)
   #+openmcl (ccl:process-run-function name function)
-  #+armedbear (ext:make-thread function))
+  #+armedbear (threads:make-thread function))
 
 (defun start-background-message-handler (connection)
   "Read messages from the `connection', parse them and dispatch
@@ -340,7 +340,7 @@
     #+sb-thread (sb-thread:destroy-thread process)
     #+lispworks (mp:process-kill process)
     #+openmcl (ccl:process-kill process)
-    #+armedbear (ext:destroy-thread process))
+    #+armedbear (threads:destroy-thread process))
 
 (defgeneric read-message-loop (connection))
 (defmethod read-message-loop (connection)