diff --git a/clx/display.lisp b/clx/display.lisp index 45c5d7310a83cd1dd6d361c33f7e79f47611b162..c9e1ab5e45acef0467f1fb13dad947523ac9b6c6 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=)))