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