Return proper values when creating a new worker (oops).
authorFrancois-Rene Rideau <tunes@google.com>
Mon, 18 Mar 2013 03:56:28 +0000 (23:56 -0400)
committerFrancois-Rene Rideau <tunes@google.com>
Mon, 18 Mar 2013 03:56:28 +0000 (23:56 -0400)
thread-pooling.lisp

index f26ebce..94acdea 100644 (file)
@@ -231,7 +231,8 @@ implementations."))
      (error (condition)
        (let ((*acceptor* (taskmaster-acceptor taskmaster)))
          (log-message* *lisp-errors-log-level*
-                       "Error while creating worker thread: ~A" condition))))))
+                       "Error while creating worker thread: ~A" condition))))
+    (values worker-id channel)))
 
 (defgeneric dispatch-work (taskmaster))