[Unetwork-cvs] CVS update: unetwork/src/nntp.lisp

[Matthieu Villeneuve]

Update of /project/unetwork/cvsroot/unetwork/src
In directory common-lisp.net:/tmp/cvs-serv7850

Modified Files:
	nntp.lisp 
Log Message:
Fixed typo
Date: Mon Jan  3 22:34:54 2005
Author: mvilleneuve

Index: unetwork/src/nntp.lisp
diff -u unetwork/src/nntp.lisp:1.3 unetwork/src/nntp.lisp:1.4
--- unetwork/src/nntp.lisp:1.3	Tue Mar 23 14:02:21 2004
+++ unetwork/src/nntp.lisp	Mon Jan  3 22:34:54 2005
@@ -16,7 +16,7 @@
   (defconstant +nntp-default-port+ 119))
 
 (defun nntp-open-connection (server user password
-                             &optional (port +nntp-default-port))
+                             &optional (port +nntp-default-port+))
   "Open a connection to a NNTP server. Returns the connection socket."
   (let ((socket (open-socket server port :type :text)))
     (unless (null user)