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
