[noctool-cvs] CVS source

[imattsson]

Update of /project/noctool/cvsroot/source
In directory cl-net:/tmp/cvs-serv19953

Modified Files:
	scheduler.lisp 
Log Message:
IM

Must Make Sure to MP-protect the part we actually care about MP-protecting
(that is, the call to PROCESS rather than the making of threads).


--- /project/noctool/cvsroot/source/scheduler.lisp	2008/11/10 18:59:53	1.9
+++ /project/noctool/cvsroot/source/scheduler.lisp	2008/11/10 19:07:10	1.10
@@ -201,12 +201,11 @@
 
 (defmethod process ((event event))
   #-no-noctool-threads
-  (noc-thread 
     (sb-thread:make-thread 
      #'(lambda () 
          (handler-case 
              (sb-ext:with-timeout 3000
-               (process (object event)))
+               (noc-thread (process (object event)))
            (sb-ext::timeout ()
              (warn "Timing out thread ~A~%" sb-thread:*current-thread*))))))
   #+no-noctool-threads