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))) "")))