[noctool-cvs] CVS source

[jprewett]

Update of /project/noctool/cvsroot/source
In directory clnet:/tmp/cvs-serv18265

Modified Files:
	scheduler.lisp classes.lisp 
Log Message:

moved :BEFORE PROCESS method for EVENT class into scheduler.lisp



--- /project/noctool/cvsroot/source/scheduler.lisp	2008/07/03 07:30:24	1.4
+++ /project/noctool/cvsroot/source/scheduler.lisp	2008/07/09 14:40:06	1.5
@@ -141,3 +141,8 @@
   (sb-thread:make-thread (lambda () (process (object event))))
   #+no-noctool-threads  
   (process (object event)))
+
+(defmethod process :before ((event net.hexapodia.noctool-scheduler:event))
+  (let ((obj (net.hexapodia.noctool-scheduler::object event)))
+    (when (or (proxies (equipment obj)) (proxies obj))
+      (push obj *network-updates-needed*))))
--- /project/noctool/cvsroot/source/classes.lisp	2008/07/03 07:30:23	1.10
+++ /project/noctool/cvsroot/source/classes.lisp	2008/07/09 14:40:07	1.11
@@ -247,7 +247,4 @@
    )
   (:default-initargs :display-objects nil))
 
-(defmethod process :before ((event net.hexapodia.noctool-scheduler:event))
-  (let ((obj (net.hexapodia.noctool-scheduler::object event)))
-    (when (or (proxies (equipment obj)) (proxies obj))
-      (push obj *network-updates-needed*))))
+