From 29bd4a8068bcf7ffb1d468caa24fb03b10eaf820 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Fri, 4 Jan 2002 21:31:25 +0000
Subject: [PATCH] Fix ext:connect-to-inet-socket to not consume resources if
 lookup-host-entry fails to find the host. Reported by John Wiseman.

---
 code/internet.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/internet.lisp b/code/internet.lisp
index dee96e158..83857568e 100644
--- a/code/internet.lisp
+++ b/code/internet.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.31 2001/12/06 19:15:41 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.32 2002/01/04 21:31:25 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -269,9 +269,9 @@ struct in_addr {
 
 (defun connect-to-inet-socket (host port &optional (kind :stream))
   "The host may be an address string or an IP address in host order."
-  (let ((socket (create-inet-socket kind))
-	(hostent (or (lookup-host-entry host)
-		     (error "Unknown host: ~S." host))))
+  (let* ((hostent (or (lookup-host-entry host)
+		      (error "Unknown host: ~S." host)))
+	 (socket (create-inet-socket kind)))
     (with-alien ((sockaddr inet-sockaddr))
       (setf (slot sockaddr 'family) af-inet)
       (setf (slot sockaddr 'port) (htons port))
-- 
GitLab