anchor.diff:                   :stream stream))
   
   (defgeneric socket-close (usocket)
  -  (:documentation "Close a previously opened USOCKET."))
  +  (:documentation "Close a previously opened `usocket'."))
   
   (defmacro with-connected-socket ((var socket) &body body)
  +  "Bind `socket' to `var', ensuring socket destruction on exit.
  +
  +The `body' is an implied progn form."
     `(let ((,var ,socket))
        (unwind-protect
            (progn
  
positive.code: (defun get-random-host-by-name (name)
    (let ((hosts (get-hosts-by-name name)))
      (elt hosts (random (length hosts)))))
  
negative.code:    (stream
      :initarg :stream
      :accessor socket-stream)
     (local-address ;; possibly need to eliminate
      :initarg :local-address
      :accessor local-address)
     (local-port ;; possibly need to eliminate
      :initarg :local-port
      :accessor local-port)))
  
  