From 266035ead479bcc10ac0cb5bd9a4b8ff453cc777 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 27 Jan 2008 03:00:03 +0100 Subject: [PATCH] A few fixes after last commit. Signed-off-by: Stelian Ionescu --- net.sockets/address.lisp | 4 ++-- net.sockets/make-socket.lisp | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/net.sockets/address.lisp b/net.sockets/address.lisp index eafeb92..e1a9402 100644 --- a/net.sockets/address.lisp +++ b/net.sockets/address.lisp @@ -333,8 +333,8 @@ returned unmodified." (defun address-equal-p (addr1 addr2 &optional (family :internet)) "Returns T if both arguments are designators for the same socket address." - (address= (ensure-address addr1 family) - (ensure-address addr2 family))) + (address= (ensure-address addr1 :family family) + (ensure-address addr2 :family family))) ;;;; Copy Methods diff --git a/net.sockets/make-socket.lisp b/net.sockets/make-socket.lisp index 7263a71..9d811a5 100644 --- a/net.sockets/make-socket.lisp +++ b/net.sockets/make-socket.lisp @@ -135,9 +135,9 @@ On error call CLOSE with :ABORT T on VAR." :ibs input-buffer-size :obs output-buffer-size)) (when local-filename - (bind-address socket (ensure-address local-filename :local))) + (bind-address socket (ensure-address local-filename :family :local))) (when remote-filename - (connect socket (ensure-address remote-filename :local))))) + (connect socket (ensure-address remote-filename :family :local))))) (defun %make-local-stream-active-socket (args family ef) (destructuring-bind (&key local-filename remote-filename @@ -160,7 +160,7 @@ On error call CLOSE with :ABORT T on VAR." (defun %%make-local-stream-passive-socket (family ef local-filename reuse-address backlog) (with-close-on-error (socket (create-socket family :stream :passive ef)) (when local-filename - (bind-address socket (ensure-address local-filename :local) + (bind-address socket (ensure-address local-filename :family :local) :reuse-address reuse-address) (socket-listen socket :backlog backlog)))) @@ -219,9 +219,9 @@ On error call CLOSE with :ABORT T on VAR." (defun %%make-local-datagram-socket (family ef local-filename remote-filename) (with-close-on-error (socket (create-socket family :datagram :active ef)) (when local-filename - (bind-address socket (ensure-address local-filename :local))) + (bind-address socket (ensure-address local-filename :family :local))) (when remote-filename - (connect socket (ensure-address remote-filename :local))))) + (connect socket (ensure-address remote-filename :family :local))))) (defun %make-local-datagram-socket (args family ef) (destructuring-bind (&key local-filename remote-filename) -- 2.11.4.GIT