From 2cfbb9b9140fdd1ca7bb49640aa7e4b50f0d1cec Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Wed, 16 Jul 2003 17:04:55 +0000 Subject: [PATCH] open-clx-display: use :protocol :unix in call to xlib:open-display when host is "unix" magic host. --- code/clx-ext.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/code/clx-ext.lisp b/code/clx-ext.lisp index 6459e742e..979b639f9 100644 --- a/code/clx-ext.lisp +++ b/code/clx-ext.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/clx-ext.lisp,v 1.15 2001/03/04 20:12:30 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/clx-ext.lisp,v 1.16 2003/07/16 17:04:55 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -53,6 +53,7 @@ ;; to open an AF_UNIX socket instead of an AF_INET one. ;; This is supposed to be faster on a local server. (host-name "unix") + (protocol :unix) (auth-name nil) (auth-data nil) (display-num nil) @@ -89,6 +90,7 @@ (xlib::get-best-authorization (machine-instance) display-num :tcp))) (let ((display (xlib:open-display host-name :display display-num + :protocol protocol :authorization-name auth-name :authorization-data auth-data))) (when screen-num -- GitLab