[usocket-cvs] r92 - usocket/trunk/backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Feb 13 14:45:58 2006
New Revision: 92

Modified:
   usocket/trunk/backend/allegro.lisp
   usocket/trunk/backend/clisp.lisp
   usocket/trunk/backend/cmucl.lisp
   usocket/trunk/backend/lispworks.lisp
   usocket/trunk/backend/sbcl.lisp
Log:
Remove unused TYPE argument to SOCKET-CONNECT.

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Mon Feb 13 14:45:58 2006
@@ -5,6 +5,9 @@
 
 (in-package :usocket)
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require :sock))
+
 (defparameter +allegro-identifier-error-map+
   '((:address-in-use . address-in-use-error)
     (:address-not-available . address-not-available-error)
@@ -33,8 +36,7 @@
                 :real-error condition
                 :socket socket))))))
 
-(defun socket-connect (host port &optional (type :stream))
-  (declare (ignore type))
+(defun socket-connect (host port)
   (let ((socket))
     (setf socket
           (with-mapped-conditions (socket)

Modified: usocket/trunk/backend/clisp.lisp
==============================================================================
--- usocket/trunk/backend/clisp.lisp	(original)
+++ usocket/trunk/backend/clisp.lisp	Mon Feb 13 14:45:58 2006
@@ -38,8 +38,7 @@
                   :socket socket
                   :real-error condition))))))
 
-(defun socket-connect (host port &optional (type :stream))
-  (declare (ignore type))
+(defun socket-connect (host port)
   (let ((socket)
         (hostname (host-to-hostname host)))
     (with-mapped-conditions (socket)

Modified: usocket/trunk/backend/cmucl.lisp
==============================================================================
--- usocket/trunk/backend/cmucl.lisp	(original)
+++ usocket/trunk/backend/cmucl.lisp	Mon Feb 13 14:45:58 2006
@@ -53,7 +53,7 @@
                          :real-condition condition
                          :socket socket))))
 
-(defun socket-connect (host port &optional (type :stream))
+(defun socket-connect (host port)
   (let* ((socket))
     (setf socket
           (with-mapped-conditions (socket)

Modified: usocket/trunk/backend/lispworks.lisp
==============================================================================
--- usocket/trunk/backend/lispworks.lisp	(original)
+++ usocket/trunk/backend/lispworks.lisp	Mon Feb 13 14:45:58 2006
@@ -47,8 +47,7 @@
 ;;                       :real-condition condition
 ;;                       :socket socket))))
 
-(defun socket-connect (host port &optional (type :stream))
-  (declare (ignore type))
+(defun socket-connect (host port)
   (let ((hostname (host-to-hostname host))
         (stream))
     (setf stream

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Mon Feb 13 14:45:58 2006
@@ -59,7 +59,7 @@
                            :real-condition condition))))))
 
 
-(defun socket-connect (host port &optional (type :stream))
+(defun socket-connect (host port)
   (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket
                                 :type type :protocol :tcp))
          (stream (sb-bsd-sockets:socket-make-stream socket