[cl-irc-cvs] r195 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Apr 24 16:27:35 2007
New Revision: 195

Modified:
   trunk/protocol.lisp
Log:
r193 followup: 'user' was renamed to 'remote-user' to disambiguate its meaning.

Modified: trunk/protocol.lisp
==============================================================================
--- trunk/protocol.lisp	(original)
+++ trunk/protocol.lisp	Tue Apr 24 16:27:35 2007
@@ -462,10 +462,10 @@
 (defmethod print-object ((object dcc-connection) stream)
   "Print the object for the Lisp reader."
   (print-unreadable-object (object stream :type t :identity t)
-    (if (user object)
+    (if (remote-user object)
         (format stream "with ~A@~A"
-                (nickname (user object))
-                (hostname (user object)))
+                (nickname (remote-user object))
+                (hostname (remote-user object)))
       "")))