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:   (close-socket s))
  
  ;; Same example using stream support
  (let ((s (make-client-socket :host "www.double.co.nz" :port 80)))
  	(with-socket-stream (stream s)
  		(write-line "GET / HTTP/1.0" stream)
  		(write-line "" stream)
  
negative.code: ;; Same example using a proxy
  (let* ((*default-proxy-server*
  			(make-instance 'generic-proxy-server :host "proxy.myserver.com" :port 8080))
  		(s (make-client-socket :host "www.cormanlisp.com" :port 80)))
  	(with-socket-stream (stream s)
  		(write-line "GET / HTTP/1.0" stream)
  		(write-line "" stream)
  