[noctool-cvs] CVS source

[imattsson]

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

Modified Files:
	classes.lisp 
Log Message:
IM

Added a slot to the remote-node class, to keep a "local name".


--- /project/noctool/cvsroot/source/classes.lisp	2008/06/05 05:50:31	1.4
+++ /project/noctool/cvsroot/source/classes.lisp	2008/06/12 06:02:17	1.5
@@ -183,6 +183,7 @@
 (defclass remote-node ()
   ((destination :reader destination :initarg :destination)
    (dst-port :reader dst-port :initarg :dst-port)
+   (my-name :reader my-name :initarg :my-name)
    (my-passwd :reader my-passwd :initarg :my-passwd)
    (remote-passwd :reader remote-passwd :initarg :remote-passwd)
    (conn :accessor conn :initarg :conn)