[net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp

[Erik Enge]

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv4704

Modified Files:
	protocol.lisp 
Log Message:
con -> connection typo

Date: Mon Nov  3 12:25:48 2003
Author: eenge

Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.1.1.1 net-nittin-irc/protocol.lisp:1.2
--- net-nittin-irc/protocol.lisp:1.1.1.1	Mon Nov  3 12:00:54 2003
+++ net-nittin-irc/protocol.lisp	Mon Nov  3 12:25:48 2003
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.1.1.1 2003/11/03 17:00:54 eenge Exp $
+;;;; $Id: protocol.lisp,v 1.2 2003/11/03 17:25:48 eenge Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -119,7 +119,7 @@
     raw-message))
 
 (defmethod all-users ((connection connection))
-  (let ((user-list (dangling-users con)))
+  (let ((user-list (dangling-users connection)))
     (dolist (channel (channels connection))
       (maphash #'(lambda (key value)
                    (declare (ignore key))