Hi, Erik
Would you please put (defun DATAGRAM-USOCKET-P) on behind of (defclass DATAGRAM-USOCKET)? It seems that under some compiler options, SBCL complains that he don't know about the DATAGRAM-USOCKET type:
Index: usocket.lisp =================================================================== --- usocket.lisp (revision 362) +++ usocket.lisp (working copy) @@ -72,14 +72,14 @@ (defun stream-server-usocket-p (socket) (typep socket 'stream-server-usocket))
-(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 datagram-usocket-p (socket) + (typep socket 'datagram-usocket)) + (defun make-socket (&key socket) "Create a usocket socket type from implementation specific socket." (unless socket
--binghe
Done.
Thanks for your report!
(PS: The others I still have to do, but I'm aware of them!)
Bye,
Erik.
On Mon, Jul 21, 2008 at 6:11 PM, Chun Tian (binghe) binghe.lisp@gmail.com wrote:
Hi, Erik
Would you please put (defun DATAGRAM-USOCKET-P) on behind of (defclass DATAGRAM-USOCKET)? It seems that under some compiler options, SBCL complains that he don't know about the DATAGRAM-USOCKET type:
Index: usocket.lisp
--- usocket.lisp (revision 362) +++ usocket.lisp (working copy) @@ -72,14 +72,14 @@ (defun stream-server-usocket-p (socket) (typep socket 'stream-server-usocket))
-(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 datagram-usocket-p (socket)
- (typep socket 'datagram-usocket))
(defun make-socket (&key socket) "Create a usocket socket type from implementation specific socket." (unless socket
--binghe
usocket-devel mailing list usocket-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel