[noctool-cvs] CVS source

[jprewett]

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

Modified Files:
	classes.lisp 
Log Message:

removed debugging statements :P



--- /project/noctool/cvsroot/source/classes.lisp	2008/08/26 15:54:29	1.13
+++ /project/noctool/cvsroot/source/classes.lisp	2008/08/26 16:09:21	1.14
@@ -277,13 +277,11 @@
 					(random (interval object)))))
 
 (defmethod update-alert ((thing disk-container))
-  (format t "updating alert for ~A~%" thing)
   (setf (alert-level thing)
         (reduce #'max (disk-list thing)
                 :key 'alert-level :initial-value 0)))
 
 (defmethod update-alert ((thing host))
-  (format t "updating alert for ~A~%" thing)
   (setf (alert-level thing)
         (reduce #'max (monitors thing)
                 :key 'alert-level :initial-value 0)))