[noctool-cvs] CVS source

[imattsson]

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

Modified Files:
	classes.lisp 
Log Message:
IM

Added an initform to the MONITOR class, to make detection of "configured,
but unmounted disk" easier.


--- /project/noctool/cvsroot/source/classes.lisp	2009/02/05 20:23:22	1.19
+++ /project/noctool/cvsroot/source/classes.lisp	2009/02/06 16:42:42	1.20
@@ -73,7 +73,7 @@
 (defclass monitor (id-object parented-object alert-level)
   ((equipment :reader equipment :initarg :equipment)
    (interval :accessor interval :initarg :interval :initform 300)
-   (last-updated :accessor last-updated :initarg :last-updated)
+   (last-updated :accessor last-updated :initarg :last-updated :initform 0)
    (proxies :accessor proxies :initform nil)
    )
   (:default-initargs :id (gentemp "MON-" (find-package :noctool-symbols))))