[usocket-cvs] r452 - usocket/branches/0.4.x

[Chun Tian (binghe)]

Author: ctian
Date: Wed Oct 22 07:18:07 2008
New Revision: 452

Log:
Remove datagram-usocket from 0.4.x branch, we will support it in 0.5.x

Modified:
   usocket/branches/0.4.x/package.lisp
   usocket/branches/0.4.x/usocket.lisp

Modified: usocket/branches/0.4.x/package.lisp
==============================================================================
--- usocket/branches/0.4.x/package.lisp	(original)
+++ usocket/branches/0.4.x/package.lisp	Wed Oct 22 07:18:07 2008
@@ -38,7 +38,6 @@
              #:stream-server-usocket
              #:socket
              #:socket-stream
-             #:datagram-usocket
 
              #:host-byte-order ; IP(v4) utility functions
              #:hbo-to-dotted-quad

Modified: usocket/branches/0.4.x/usocket.lisp
==============================================================================
--- usocket/branches/0.4.x/usocket.lisp	(original)
+++ usocket/branches/0.4.x/usocket.lisp	Wed Oct 22 07:18:07 2008
@@ -82,11 +82,6 @@
   (:documentation "Socket which listens for stream connections to
 be initiated from remote sockets."))
 
-(defclass datagram-usocket (usocket)
-  ((connected-p :initarg :connected-p :accessor connected-p))
-;; ###FIXME: documentation to be added.
-  (:documentation ""))
-
 (defun usocket-p (socket)
   (typep socket 'usocket))
 
@@ -96,9 +91,6 @@
 (defun stream-server-usocket-p (socket)
   (typep socket 'stream-server-usocket))
 
-(defun datagram-usocket-p (socket)
-  (typep socket 'datagram-usocket))
-
 (defun make-socket (&key socket)
   "Create a usocket socket type from implementation specific socket."
   (unless socket
@@ -134,13 +126,6 @@
                  :socket socket
                  :element-type element-type))
 
-(defun make-datagram-socket (socket &key connected-p)
-  (unless socket
-    (error 'invalid-socket-error))
-  (make-instance 'datagram-usocket
-                 :socket socket
-                 :connected-p connected-p))
-
 (defgeneric socket-accept (socket &key element-type)
   (:documentation
       "Accepts a connection from `socket', returning a `stream-socket'.