[noctool-cvs] CVS source

[imattsson]

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

Modified Files:
	scheduler.lisp 
Log Message:
IM

Ooooops! Too quick with the sexp-surgery. PROCESS (event) should hopefully
work better now.


--- /project/noctool/cvsroot/source/scheduler.lisp	2008/11/10 19:51:54	1.11
+++ /project/noctool/cvsroot/source/scheduler.lisp	2008/11/12 17:56:28	1.12
@@ -172,9 +172,9 @@
      #'(lambda () 
          (handler-case 
              (sb-ext:with-timeout 3000
-               (noc-thread (process (object event)))
+               (noc-thread (process (object event))))
            (sb-ext::timeout ()
-             (warn "Timing out thread ~A~%" sb-thread:*current-thread*))))))
+             (warn "Timing out thread ~A~%" sb-thread:*current-thread*)))))
   #+no-noctool-threads  
   (process (object event)))