/[cmucl]/src/clx/dependent.lisp
ViewVC logotype

Diff of /src/clx/dependent.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by emarsden, Sun Jul 20 15:55:23 2003 UTC revision 1.16 by rtoy, Fri Jun 17 13:06:18 2005 UTC
# Line 640  Line 640 
640    (ecase protocol    (ecase protocol
641      ;; establish a TCP connection to the X11 server, which is      ;; establish a TCP connection to the X11 server, which is
642      ;; listening on port 6000 + display-number      ;; listening on port 6000 + display-number
643      ((or :tcp nil)      ((:internet :tcp nil)
644       (let ((fd (ext:connect-to-inet-socket host (+ *x-tcp-port* display))))       (let ((fd (ext:connect-to-inet-socket host (+ *x-tcp-port* display))))
645         (unless (plusp fd)         (unless (plusp fd)
646           (error 'connection-failure           (error 'connection-failure

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5