[usocket-devel] SBCL cannot compile trunk (sometimes...)

[Chun Tian (binghe)]

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