[usocket-cvs] r129 - usocket/trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Thu Dec 21 17:08:01 2006
New Revision: 129

Modified:
   usocket/trunk/usocket.lisp
Log:
Remove interface now provided in trivial-usocket.

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Thu Dec 21 17:08:01 2006
@@ -51,26 +51,6 @@
 object."
   (make-instance 'stream-server-usocket :socket socket))
 
-(defun open-stream (peer-host peer-port
-                              &key (local-host :any)
-                              (local-port 0)
-                              (external-format :default)
-                              (element-type 'character)
-                              (protocol :tcp))
-  "trivial-sockets compat function to make usocket a drop-in replacement
-apart from the package naming difference."
-  (unless (and (eql local-host :any) (eql local-port 0))
-    (error 'unsupported :feature :bind))
-  (unless (eql protocol :tcp)
-    (error 'unsupported :feature `(:protocol ,protocol)))
-  (unless (eql external-format :default)
-    (error 'unsupported :feature :external-format))
-  (unless (eql element-type 'character)
-    (error 'unsupported :feature :element-type))
-  (let ((sock (socket-connect peer-host peer-port)))
-    (when sock
-      (socket-stream sock))))
-
 (defgeneric socket-close (usocket)
   (:documentation "Close a previously opened `usocket'."))