From imattsson at common-lisp.net  Mon Oct 11 16:26:00 2010
From: imattsson at common-lisp.net (imattsson)
Date: Mon, 11 Oct 2010 12:26:00 -0400
Subject: [noctool-cvs] CVS source
Message-ID: <E1P5LCK-0000Kt-IY@common-lisp.net>

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

Modified Files:
	graph-monitors.lisp 
Log Message:
IM

Fixed a couple of under-specified symbols not currently exported from
the :noctool package.


--- /project/noctool/cvsroot/source/graph-monitors.lisp	2010/09/13 09:24:21	1.9
+++ /project/noctool/cvsroot/source/graph-monitors.lisp	2010/10/11 16:26:00	1.10
@@ -183,11 +183,11 @@
 	    
 	    image))))))
       
-(defmethod show ((graph snmp-monitor) sink format &rest keys &key (selector :short) (measure :octets) &allow-other-keys)
+(defmethod show ((graph noctool::snmp-container) sink format &rest keys &key (selector :short) (measure :octets) &allow-other-keys)
   (let ((keys (loop for (key val . rest) on keys by #'cddr
 		   if (not (member key '(:selector :measure)))
 		   append (list key val))))
-    (mapcar (lambda (interface) (apply #'show interface sink format :selector selector :measure measure keys)) (interfaces snmp-monitor))))
+    (mapcar (lambda (interface) (apply #'show interface sink format :selector selector :measure measure keys)) (noctool::interfaces graph))))
 
 (defmethod show :around ((graph noctool::monitor) (sink string) format &key (selector :short) scale &allow-other-keys)
   (graph-ignore selector scale)