Fix for CLX display host problem

Some time ago I noticed that CMUCL no longer liked displays of the
form ":0.0".  Turns out that there's a simple fix for this.



*** /homes/gilham/cmucl-test/src/code/clx-ext.lisp      Tue Aug 12 13:43:42 2003
--- src/code/clx-ext.lisp       Mon Aug 25 14:59:19 2003
***************
*** 49,55 ****
    (when string
      (let* ((string (coerce string 'simple-string))
           (length (length string))
!          (host-name "unix")
           (protocol :tcp)
           (auth-name nil)
           (auth-data nil)
--- 49,55 ----
    (when string
      (let* ((string (coerce string 'simple-string))
           (length (length string))
!          (host-name "")
           (protocol :tcp)
           (auth-name nil)
           (auth-data nil)
***************
*** 87,93 ****
        ;; connect to the X server using the :unix protocol. This is the
        ;; most efficient transport to the local host, most often a Unix
        ;; domain socket. In all other cases, we use the :tcp protocol. 
!       (when (equal host-name "unix")
          (setq protocol :unix)
          (multiple-value-setq (auth-name auth-data)
            (xlib::get-best-authorization (machine-instance) display-num :tcp)))
--- 87,93 ----
        ;; connect to the X server using the :unix protocol. This is the
        ;; most efficient transport to the local host, most often a Unix
        ;; domain socket. In all other cases, we use the :tcp protocol. 
!       (when (or (equal host-name "") (equal host-name "unix"))
          (setq protocol :unix)
          (multiple-value-setq (auth-name auth-data)
            (xlib::get-best-authorization (machine-instance) display-num :tcp)))


-- 
Fred Gilham gilham@xxxxxxxxxxx || His word is a creative word, and
when he speaks the good exists as good.  God is neither arbitrary nor
tyrannical.  He is love, and when he expresses his will it is a will
of love.  Hence the good given by God is good for us.-- Jacques Ellul