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)