anchor.diff:  (with-client-socket (s :host "localhost" :port 8000)
   	(write-socket-line s "quit"))
   
  +;; Datagram Server test.
  +(defun start-server-test3 (&optional (port 8001))
  +    (with-server-socket (s :host "0.0.0.0" :port port :type :datagram)
  +        (do () (()) (multiple-value-bind (string addr) (receive-from s)
  +                          (format t "Datagram from ~A in server ~A. Received ~s~%" (getf addr :dotted) (socket-descriptor s) string) (force-output)
  +                          (send-to s (format nil "Hello ~a." (getf addr :dotted)) :to addr)
  +                          (when (equal string "quit") (return))))))
  +(th:create-thread #'start-server-test3)
  +
  +;; Use the datagram server.
  +(with-client-socket (s :host "localhost" :port 8001 :type :datagram)
  +    (send-to s "Sending out an SOS.")
  +    (format t "Got: ~s~%" (receive-from s)) (force-output)
  +    (send-to s "quit"))
  +
   ;; Use IPv6
   (setq *ipv6* :only)
   
  
positive.code: 			(when (not (eql ch #\Return))
  				(vector-push-extend ch str)))))
  
  (defun make-client-socket (&key host port (proxy *default-proxy-server*))
  	"Create and return a client socket attached to the HOST and PORT."
  	(if proxy
  		(make-instance 'proxy-client-socket
  
negative.code: 	  do (format t "~A~%" line))
    (close-socket s))
  
  ;; Server test - uses start-socket-server, streams and IPv6.
  (defun start-server-test4 (&optional (port 8000))
  	(with-server-socket (s :host "::" :port port)
  		(start-socket-server (s rs)
  			(let ((stream (make-socket-stream rs)))
  				(when (equal (read-line stream) "quit")
  					(return-from start-server-test4))
  				(write-line 
  					(coerce (make-list 80 :initial-element #\Z) 'string)
  					stream)
  