[usocket-cvs] r236 - usocket/trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue May  8 18:05:52 2007
New Revision: 236

Modified:
   usocket/trunk/usocket.lisp
Log:
Add generic function for socket-accept.

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Tue May  8 18:05:52 2007
@@ -89,6 +89,13 @@
                  :socket socket
                  :element-type element-type))
 
+(defgeneric socket-accept (socket &key element-type)
+  (:documentation
+      "Accepts a connection from `socket', returning a `stream-socket'.
+
+The stream associated with the socket returned has `element-type' when
+explicitly specified, or the element-type passed to `socket-listen' otherwise."))
+
 (defgeneric socket-close (usocket)
   (:documentation "Close a previously opened `usocket'."))
 
@@ -314,11 +321,3 @@
 `reuse-address' have been specified, the latter takes precedence.
 ")
 
-;; Documentation for the function
-;;
-;; (defun SOCKET-ACCEPT (socket &key element-type)
-(setf (documentation 'socket-accept 'function)
-      "Accepts a connection from `socket', returning a `stream-socket'.
-
-The stream associated with the socket returned has `element-type' when
-explicitly specified, or the element-type passed to `socket-listen' otherwise.")