[usocket-cvs] r213 - usocket/trunk

[ehuelsmann at common-lisp.net]

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