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@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