From f089e28dbe89a5d1b114e2afed49d9f9ea48ef15 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 26 May 2007 03:26:37 +0200 Subject: [PATCH] Active local sockets can now be bound. Signed-off-by: Stelian Ionescu --- sockets/make-socket.lisp | 1 + sockets/socket-methods.lisp | 5 ----- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/sockets/make-socket.lisp b/sockets/make-socket.lisp index f1858fe..9901cee 100644 --- a/sockets/make-socket.lisp +++ b/sockets/make-socket.lisp @@ -80,6 +80,7 @@ (assert remote-filename) (setf socket (create-socket :address-family :local :type :stream :connect :active :external-format ef)) + (when local-filename (bind-address socket (make-address local-filename))) (connect socket (make-address remote-filename))) (:passive (assert local-filename) diff --git a/sockets/socket-methods.lisp b/sockets/socket-methods.lisp index eaa273b..46fde1e 100644 --- a/sockets/socket-methods.lisp +++ b/sockets/socket-methods.lisp @@ -313,11 +313,6 @@ (bind-ipv6-address (fd-of socket) (name address) port) (values socket)) -(defmethod bind-address :before ((socket local-socket) - (address localaddr) &key) - (when (typep socket 'active-socket) - (error "You can't bind an active Unix socket."))) - (defmethod bind-address ((socket local-socket) (address localaddr) &key) (with-foreign-object (sun 'et:sockaddr-un) -- 2.11.4.GIT