From 024c46fa0b9cad10ea921a634b4647bcbbcd9528 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Tue, 16 Nov 2010 19:13:55 +0000
Subject: [PATCH] GET-BEST-AUTHORIZATION wasn't handling the case of a :local
 connection where the xauth file only contained one entry for
 localhost/unix:0. When the protocol is :local, we explicitly check for
 localhost. Previously, the host-address was converted the hostname, which
 isn't "localhost".

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

diff --git a/clx/display.lisp b/clx/display.lisp
index 45c5d7310..c9e1ab5e4 100644
--- a/clx/display.lisp
+++ b/clx/display.lisp
@@ -19,7 +19,7 @@
 ;;;
 
 #+cmu
-(ext:file-comment "$Id: display.lisp,v 1.15 2009/07/13 13:54:35 rtoy Rel $")
+(ext:file-comment "$Id: display.lisp,v 1.16 2010/11/16 19:13:55 rtoy Exp $")
 
 (in-package :xlib)
 
@@ -117,7 +117,9 @@
 		 (read-xauth-entry stream)
 	       (unless family (return))
 	       (when (and (eql family protocol)
-			  (equal host-address address)
+			  (or (equal host-address address)
+			      (and (eql family :local)
+				   (equal address "localhost")))
 			  (= number display)
 			  (let ((pos1 (position name *known-authorizations*
 						:test #'string=)))
-- 
GitLab