/[gcl]/gcl/gcl-tk/tkl.lisp
ViewVC logotype

Diff of /gcl/gcl-tk/tkl.lisp

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:00 1999 UTC revision 1.2 by camm, Tue Jul 15 18:03:37 2003 UTC
# Line 1411  Line 1411 
1411                 ((probe-file (tk-conc si::*lib-directory* "gcl-tk/gcltksrv")))                 ((probe-file (tk-conc si::*lib-directory* "gcl-tk/gcltksrv")))
1412                 (t (error "Must setenv GCL_TK_SERVER ")))))                 (t (error "Must setenv GCL_TK_SERVER ")))))
1413    (let ((pid (if host  -1 (si::getpid)))    (let ((pid (if host  -1 (si::getpid)))
1414          (tk-socket  (si::open-named-socket 0 nil))          (tk-socket  (si::open-named-socket 0))
1415          )          )
1416      (cond ((not host) (setq hostid loopback))      (cond ((not host) (setq hostid loopback))
1417            (host (setq hostid (si::hostname-to-hostid (si::gethostname)))))            (host (setq hostid (si::hostname-to-hostid (si::gethostname)))))
1418      (or hostid (error "Can't find my address"))      (or hostid (error "Can't find my address"))
1419      (setq tk-socket (si::open-named-socket 0 nil))      (setq tk-socket (si::open-named-socket 0))
1420      (if (pathnamep gcltksrv) (setq gcltksrv (namestring gcltksrv)))      (if (pathnamep gcltksrv) (setq gcltksrv (namestring gcltksrv)))
1421      (let ((command      (let ((command
1422             (tk-conc   gcltksrv " " hostid " "             (tk-conc   gcltksrv " " hostid " "

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26