Update of /project/unetwork/cvsroot/unetwork In directory common-lisp.net:/tmp/cvs-serv15263 Modified Files: README Log Message: Reflect recent changes Date: Wed Mar 24 06:33:19 2004 Author: mvilleneuve Index: unetwork/README diff -u unetwork/README:1.3 unetwork/README:1.4 --- unetwork/README:1.3 Fri Mar 12 10:00:58 2004 +++ unetwork/README Wed Mar 24 06:33:19 2004 @@ -37,14 +37,14 @@ - HTTP - (multiple-value-bind (response-code document) + (multiple-value-bind (document response-code) (http-get "http://www.common-lisp.net") (print (cdr (assoc :content-type (document-properties document)))) (print (document-text document))) - HTTP with URL-streams - (with-url-input-stream (stream "http://www.common-lisp.net") + (with-uri-input-stream (stream "http://www.common-lisp.net") (loop as line = (read-line stream nil nil) until (null line) do (format t "Line: ~A~%" line)))