Author: ehuelsmann Date: Sat Mar 3 18:35:49 2007 New Revision: 213 Modified: usocket/trunk/usocket.lisp Log: Raise an error when creating an invalid socket. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sat Mar 3 18:35:49 2007 @@ -83,6 +83,8 @@ The returned value is a subtype of `stream-server-usocket'. " + (unless socket + (error 'invalid-socket-error)) (make-instance 'stream-server-usocket :socket socket :element-type element-type))