anchor.diff:   
   ;;Example of reading from an HTTP server.
   (start-sockets)
  -(let ((s (make-client-socket :host "www.double.co.nz" :port 80)))
  +(let ((s (make-client-socket :host "www.cormanlisp.com" :port 80)))
     (write-socket-line s "GET / HTTP/1.0")
     (write-socket-line s "")
     (loop as line = (read-socket-line s nil :eof)
  
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: 		(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)
  