From mvilleneuve at common-lisp.net Mon Jan 3 21:34:56 2005 From: mvilleneuve at common-lisp.net (Matthieu Villeneuve) Date: Mon, 3 Jan 2005 22:34:56 +0100 (CET) Subject: [Unetwork-cvs] CVS update: unetwork/src/nntp.lisp Message-ID: <20050103213456.18370884A5@common-lisp.net> 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) From mvilleneuve at common-lisp.net Mon Jan 3 21:37:57 2005 From: mvilleneuve at common-lisp.net (Matthieu Villeneuve) Date: Mon, 3 Jan 2005 22:37:57 +0100 (CET) Subject: [Unetwork-cvs] CVS update: unetwork/src/unetwork.asd Message-ID: <20050103213757.44F65884A5@common-lisp.net> Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv7886 Modified Files: unetwork.asd Log Message: Fixed file dependencies Date: Mon Jan 3 22:37:55 2005 Author: mvilleneuve Index: unetwork/src/unetwork.asd diff -u unetwork/src/unetwork.asd:1.5 unetwork/src/unetwork.asd:1.6 --- unetwork/src/unetwork.asd:1.5 Mon Mar 29 16:17:35 2004 +++ unetwork/src/unetwork.asd Mon Jan 3 22:37:55 2005 @@ -18,10 +18,10 @@ (defsystem unetwork-base :depends-on (:puri) :components ((:file "package") - (:file "errors") - (:file "utilities") - (:file "document" :depends-on ("utilities")) - (:file "socket"))) + (:file "errors" :depends-on ("package")) + (:file "utilities" :depends-on ("package")) + (:file "document" :depends-on ("package" "utilities")) + (:file "socket" :depends-on ("package" "utilities")))) (defsystem unetwork-cmu :depends-on (:unetwork-base) From mvilleneuve at common-lisp.net Mon Jan 3 21:42:27 2005 From: mvilleneuve at common-lisp.net (Matthieu Villeneuve) Date: Mon, 3 Jan 2005 22:42:27 +0100 (CET) Subject: [Unetwork-cvs] CVS update: unetwork/src/base-clisp.lisp unetwork/src/unetwork.asd Message-ID: <20050103214227.B4F8C884A5@common-lisp.net> Update of /project/unetwork/cvsroot/unetwork/src In directory common-lisp.net:/tmp/cvs-serv7923 Modified Files: unetwork.asd Added Files: base-clisp.lisp Log Message: Added base file for CLISP (no function implemented at this point) Date: Mon Jan 3 22:42:26 2005 Author: mvilleneuve Index: unetwork/src/unetwork.asd diff -u unetwork/src/unetwork.asd:1.6 unetwork/src/unetwork.asd:1.7 --- unetwork/src/unetwork.asd:1.6 Mon Jan 3 22:37:55 2005 +++ unetwork/src/unetwork.asd Mon Jan 3 22:42:25 2005 @@ -23,6 +23,10 @@ (:file "document" :depends-on ("package" "utilities")) (:file "socket" :depends-on ("package" "utilities")))) +(defsystem unetwork-clisp + :depends-on (:unetwork-base) + :components ((:file "base-clisp"))) + (defsystem unetwork-cmu :depends-on (:unetwork-base) :components ((:file "base-cmu"))) @@ -33,7 +37,8 @@ (defsystem unetwork :name "unetwork" - :depends-on (#+cmu :unetwork-cmu + :depends-on (#+clisp :unetwork-clisp + #+cmu :unetwork-cmu #+sbcl :unetwork-sbcl) :components ((:file "url") (:file "uri-streams")