[usocket-cvs] r377 - usocket/trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jul 22 02:24:21 2008
New Revision: 377

Modified:
   usocket/trunk/usocket.lisp
Log:
Fixes compilation issue with recent SBCL.

Patch by Chun Tian (binghe.lisp at gmail.com)

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Tue Jul 22 02:24:21 2008
@@ -63,6 +63,11 @@
   (: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))
 
@@ -75,11 +80,6 @@
 (defun datagram-usocket-p (socket)
   (typep socket 'datagram-usocket))
 
-(defclass datagram-usocket (usocket)
-  ((connected-p :initarg :connected-p :accessor connected-p))
-;; ###FIXME: documentation to be added.
-  (:documentation ""))
-
 (defun make-socket (&key socket)
   "Create a usocket socket type from implementation specific socket."
   (unless socket