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