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