From 5f92465b0849a7f666ba0b4b91c3bd47a70deb9f Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Wed, 16 Oct 2002 07:15:58 +0000 Subject: [PATCH] SI::LOOKUP-HOST-ENTRY should not signal an error when the host is not found. --- src/c/tcp.d | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/src/c/tcp.d b/src/c/tcp.d index 6928700ab..987d14377 100644 --- a/src/c/tcp.d +++ b/src/c/tcp.d @@ -234,16 +234,12 @@ make_stream(cl_object host, int fd, enum smmode smm) "Wed Jun 22 19:44:36 METDST 1994" */ @(defun si::open_client_stream (host port) - int fd; /* file descriptor */ + int fd, p; /* file descriptor */ cl_object streamIn, streamOut; @ - if (type_of(host) != t_string) - FEwrong_type_argument(@'string', host); + assert_type_string(host); /* Ensure "host" is a string */ + p = fixnnint(port); /* INV: fixnnint() checks type */ - if (!FIXNUMP(port)) - FEwrong_type_argument(TSpositive_number, port); - - /* FIXME! Why? */ if (host->string.fillp > BUFSIZ - 1) FEerror("~S is a too long file name.", 1, host); @@ -345,8 +341,7 @@ make_stream(cl_object host, int fd, enum smmode smm) 1, host_or_address); } if (he == NULL) - FEerror("LOOKUP-HOST-ENTRY: Failed to find entry for ~S", - 1, host_or_address); + @(return Cnil Cnil Cnil) name = make_string_copy(he->h_name); aliases = Cnil; for (i = 0; he->h_aliases[i] != 0; i++)