anchor.diff:      :accessor socket
       :documentation "Implementation specific socket object instance."))
     (:documentation
  -"The main socket class."))
  +"The main socket class.
  +
  +Sockets should be closed using the `socket-close' method."))
   
   (defclass stream-usocket (usocket)
      ((stream
        :initarg :stream
        :accessor socket-stream
  -     :documentation "Stream instance associated with the socket.
  -
  -Iff an external-format was passed to `socket-connect' or `socket-listen'
  -the stream is a flexi-stream. Otherwise the stream is implementation
  -specific."))
  -   (:documentation ""))
  +     :documentation "Stream instance associated with the socket."
  +;;
  +;;Iff an external-format was passed to `socket-connect' or `socket-listen'
  +;;the stream is a flexi-stream. Otherwise the stream is implementation
  +;;specific."
  +))
  +   (:documentation
  +"Stream socket class.
  +
  +Contrary to other sockets, these sockets may be closed either
  +with the `socket-close' method or by closing the associated stream
  +(which can be retrieved with the `socket-stream' accessor)."))
   
   (defclass stream-server-usocket (usocket)
     ((element-type
  
positive.code: 
  ;; Documentation for the function
  ;;
  ;; (defun SOCKET-LISTEN (host port &key reuseaddress backlog) ..)
  ;;###FIXME: extend with default-element-type
  (setf (documentation 'socket-listen 'function)
        "Bind to interface `host' on `port'. `host' should be the
  
negative.code: 
  (defun make-stream-socket (&key socket stream)
    "Create a usocket socket type from implementation specific socket
  and stream objects.
  
  Sockets returned should be closed using the `socket-close' method or
  by closing the stream associated with the socket.
  "
    (unless socket
      (error 'invalid-socket-error))
    (unless stream
  