From 6abdf1882923781c7d73e74377b988929d285155 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 17 Jun 2005 13:06:18 +0000
Subject: [PATCH] Allow :internet as a valid protocol for open-x-stream.  Fixes
 a typo too.

---
 clx/dependent.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/clx/dependent.lisp b/clx/dependent.lisp
index 25e79222e..aa80fe78e 100644
--- a/clx/dependent.lisp
+++ b/clx/dependent.lisp
@@ -18,7 +18,7 @@
 ;;; express or implied warranty.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/dependent.lisp,v 1.15 2003/07/20 15:55:23 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/clx/dependent.lisp,v 1.16 2005/06/17 13:06:18 rtoy Exp $")
 
 (in-package :xlib)
 
@@ -640,7 +640,7 @@
   (ecase protocol
     ;; establish a TCP connection to the X11 server, which is
     ;; listening on port 6000 + display-number
-    ((or :tcp nil)
+    ((:internet :tcp nil)
      (let ((fd (ext:connect-to-inet-socket host (+ *x-tcp-port* display))))
        (unless (plusp fd)
          (error 'connection-failure
-- 
GitLab