gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

author	Camm Maguire <camm@debian.org>	2003年07月16日 02:02:50 +0000
committer	Camm Maguire <camm@debian.org>	2003年07月16日 02:02:50 +0000
commit	193ffb6d9fa0497c4041b770f8ef79fa5a558bcc (patch)
tree	6f98c6c531d1540a7d7d85b8971edb0d3a7a36ab
parent	ad1501f669ebdeaed0a3f7021e4dc8fbeff365f4 (diff)
download	gcl-unlabeled-1.1.1.1.12.tar.gz

* Type-punning warning fixes;* small_fixnum overflow fixes;* off by one fix in cerror;* Fix compiler error which had not recognized defpackage as a package operation;* Fix tkl.lisp call to open-named-socket;* Make values-list and nreconc signal errors when they should on dotted lists.; * Avoid use of windows.h types as macros.; * New config.{sub,guess}unlabeled-1.1.1.1.12

Diffstat

-rwxr-xr-x

gcl/gcl-tk/tkl.lisp

1 files changed, 2 insertions, 2 deletions

diff --git a/gcl/gcl-tk/tkl.lisp b/gcl/gcl-tk/tkl.lisp
index a2de383c6..1ab3d5897 100755
--- a/gcl/gcl-tk/tkl.lisp
+++ b/gcl/gcl-tk/tkl.lisp

@@ -1411,12 +1411,12 @@

((probe-file (tk-conc si::*lib-directory* "gcl-tk/gcltksrv")))

(t (error "Must setenv GCL_TK_SERVER ")))))

(let ((pid (if host -1 (si::getpid)))

- (tk-socket (si::open-named-socket 0 nil))

+ (tk-socket (si::open-named-socket 0))

)

(cond ((not host) (setq hostid loopback))

(host (setq hostid (si::hostname-to-hostid (si::gethostname)))))

(or hostid (error "Can't find my address"))

- (setq tk-socket (si::open-named-socket 0 nil))

+ (setq tk-socket (si::open-named-socket 0))

(if (pathnamep gcltksrv) (setq gcltksrv (namestring gcltksrv)))

(let ((command

(tk-conc gcltksrv " " hostid " "

generated by cgit v1.2.3 (git 2.25.1) at 2025年09月01日 23:48:18 +0000