anchor.diff:  ;; Same example using a proxy
   (let ((*default-proxy-server*
   			(make-instance 'generic-proxy-server :host "proxy.myserver.com" :port 8080)))
  -	(with-client-socket (s :host "www.double.co.nz" :port 80)
  +	(with-client-socket (s :host "www.cormanlisp.com" :port 80)
   		(with-socket-stream (stream s)
   			(write-line "GET / HTTP/1.0" stream)
   			(write-line "" stream)
  
positive.code:  
  ;;Example of reading from an HTTP server.
  (start-sockets)
  (let ((s (make-client-socket :host "www.double.co.nz" :port 80)))
    (write-socket-line s "GET / HTTP/1.0")
    (write-socket-line s "")
    (loop as line = (read-socket-line s nil :eof)
  
negative.code: 		(read-socket s content-length)))
  				
  ;; Same example using stream support
  (with-client-socket (s :host "www.cormanlisp.com" :port 80)
  	(with-socket-stream (stream s)
  		(write-line "GET / HTTP/1.0" stream)
  		(write-line "" stream)
  