From b45c663946555f9d1204f8485513f9fe136a964b Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 25 Nov 2002 15:07:15 +0000
Subject: [PATCH] Fix typo.  From Eric Marsden.

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

diff --git a/code/internet.lisp b/code/internet.lisp
index 0083ba586..fe1000044 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.36 2002/11/22 18:17:31 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.37 2002/11/25 15:07:15 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -369,11 +369,11 @@ struct in_addr {
 				  reuse-address
 				  (backlog 5)
 				  )
-  (let ((socket (create-inet-socket kind)))
+  (let ((socket (create-inet-socket kind))
         (addr (if (stringp host)
 		  (host-entry-addr (or (lookup-host-entry host)
 				       (error "Unknown host: ~S." host)))
-		host)))
+		  host)))
     (when reuse-address
       (multiple-value-bind (optval errno)
 	  (set-socket-option socket sol-socket so-reuseaddr 1)
-- 
GitLab