From b7fca4dc227c1259b037d244854928989c694fb7 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 27 Jan 2008 16:56:36 +0100 Subject: [PATCH] Fix NET.TRIVIAL-SOCKETS Signed-off-by: Stelian Ionescu --- net.sockets/trivial-sockets.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/net.sockets/trivial-sockets.lisp b/net.sockets/trivial-sockets.lisp index b803cf1..66077c6 100644 --- a/net.sockets/trivial-sockets.lisp +++ b/net.sockets/trivial-sockets.lisp @@ -59,7 +59,7 @@ (let ((net.sockets:*ipv6* nil)) (cond ((eq name :any) net.sockets:+ipv4-unspecified+) - (t (nth-value 0 (net.sockets:convert-or-lookup-inet-address name)))))) + (t (nth-value 0 (net.sockets:ensure-hostname name)))))) (defun open-stream (peer-host peer-port &key (local-host :any) (local-port 0) @@ -97,7 +97,7 @@ :local-port port :reuse-address reuse-address :backlog backlog))) - (values socket (sockets:local-port socket)))))) + (values socket (net.sockets:local-port socket)))))) (defun close-server (server) (close server)) -- 2.11.4.GIT