[Unetwork-cvs] CVS update: unetwork/README
Matthieu Villeneuve
mvilleneuve at common-lisp.net
Wed Mar 24 11:33:19 UTC 2004
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)))
More information about the Unetwork-cvs
mailing list