[slime-devel] slime/clisp freezes a fresh xemacs

Hi all,

Following recent advices on c.l.l, I just tried a recently downloaded (02/04/04) version of SLIME. I am using it with XEmacs 21.4.12 and clisp 2.32, and I'm getting the following strange behaviour :

The first invocation of M-x slime RET in a just started XEmacs freezes it

the following sequences of evaluated forms freeze it as weel :

(slime-maybe-start-lisp) (slime-read-port-and-connect) or (slime-maybe-start-lisp) (slime-start-swank-server) ;; eval only once ! (setq port (slime-read-swank-port)) (slime-connect "localhost" port)

but NOT the following

(slime-maybe-start-lisp) (slime-start-swank-server) (setq *proc* (slime-net-connect "localhost" port)) (slime-init-connection *proc*)

which works fine (i.e. after evaluating a few more forms I get a fully functional SLIME)

In all cases, the lisp is started ok, as is the swank server. The problem seems to me to be located somewhere in the slime-init-connection/slime-net-connect interaction.

I tried to put a conditional in slime-connect do process to slime-init-connection only if (slime-net-connect "localhost" port) returns, and to increase the delay between each run-with-timer (the swank server gets started after a good 3-4 seconds) but it didn't seem to help.

The XEmacs stack dump I get when killing it is the following : Lisp backtrace follows: # (unwind-protect ...) accept-process-output(nil 0 10000) (while t (accept-process-output nil 0 10000) (when nil (recursive-edit) (error "Evaluation aborted."))) # bind (inhibit-quit debug-on-quit) (let ((debug-on-quit t) (inhibit-quit nil)) (while t (accept-process-output nil 0 10000) (when nil ... ...))) # (catch slime-result-66523 ...) (catch tag (slime-rex (tag sexp) (sexp package) (... ... ...) (... ...)) (let (... ...) (while t ... ...))) # (unwind-protect ...) (unwind-protect (catch tag (slime-rex ... ... ... ...) (let ... ...))) # bind (slime-stack-eval-tags tag) (let* ((tag ...) (slime-stack-eval-tags ...)) (unwind-protect (catch tag ... ...))) # bind (package sexp) slime-eval((swank:getpid)) (let ((--store--66522 ...)) (slime-with-connection-buffer nil (setq slime-pid:connlocal --store--66522) --stor e--66522)) (setf (slime-pid) (slime-eval (quote ...))) # bind (proc) slime-init-connection-state(#<network connection "SLIME Lisp" (1219 . "localhost") state:exit>) # bind (slime-dispatching-connection) (let ((slime-dispatching-connection proc)) (slime-init-connection-state proc) (slime-select-connection proc) p roc) # bind (proc) slime-init-connection(#<network connection "SLIME Lisp" (1219 . "localhost") state:exit>) (progn (message "slime-net-connect succeeded...") (slime-init-connection proc)) (if proc (progn (message "slime-net-connect succeeded...") (slime-init-connection proc))) (when proc (message "slime-net-connect succeeded...") (slime-init-connection proc)) # bind (proc) (let ((proc ...)) (when proc (message "slime-net-connect succeeded...") (slime-init-connection proc))) (when-let (proc (slime-net-connect "localhost" port)) (message "slime-net-connect succeeded...") (slime-init-c onnection proc)) # bind (kill-old-p port host) slime-connect("localhost" 1219) # bind (port) (let ((port ...)) (message "srpac: port read in file: %d" port) (slime-connect "localhost" port)) (cond ((file-exists-p ...) (let ... ... ...)) ((and ... ...) (message "Failed to connect to Swank.")) (t (if . .. ...) (setq slime-connect-retry-timer ...))) # bind (G66513 G66512 G66511) (lambda (G66511 G66512 G66513) (if (active-minibuffer-window) nil (message "Polling %S.. (Abort with `M-x slim e-connection-abort'.)" ...)) (setq slime-state-name (format "[polling:%S]" ...)) (if slime-connect-retry-timer ( cancel-timer slime-connect-retry-timer)) (setq slime-connect-retry-timer nil) (cond (... ...) (... ...) (t ... . ..)))(--G66505-- --attempt-- --retries--) apply((lambda (G66511 G66512 G66513) (if (active-minibuffer-window) nil (message "Polling %S.. (Abort with `M- x slime-connection-abort'.)" ...)) (setq slime-state-name (format "[polling:%S]" ...)) (if slime-connect-retry-t imer (cancel-timer slime-connect-retry-timer)) (setq slime-connect-retry-timer nil) (cond (... ...) (... ...) (t ... ...))) --G66505-- --attempt-- --retries-- nil) # bind (--cl-rest--) (lambda (&rest --cl-rest--) "\nCommon Lisp lambda list:\n (cl-none . NIL)\n\n" (apply (quote ...) (quote --G6 6505--) (quote --attempt--) (quote --retries--) --cl-rest--))() apply((lambda (&rest --cl-rest--) "\nCommon Lisp lambda list:\n (cl-none . NIL)\n\n" (apply (quote ...) (quot e --G66505--) (quote --attempt--) (quote --retries--) --cl-rest--)) nil) # bind (time-elapsed itimers itimer next-wakeup last-event-time this-command inhibit-quit quit-flag current-it imer) # (unwind-protect ...) # bind (match-data) byte-code("..." [this-command inhibit-quit quit-flag match-data itimer current-itimer match-data ((store-match -data match-data)) nil itimer-uses-arguments apply itimer-function itimer-function-arguments last-event-time nex t-wakeup itimers time-elapsed] 5) # (condition-case ... . ((error (byte-code "ÂÃÄ !!#‡" ... 5)) (quit (byte-code "ÁÂ!"‡" ... 4)))) # (unwind-protect ...) # bind (itimers itimer next-wakeup idle-time last-event-time recorded-run-time inhibit-quit time-elapsed) itimer-run-expired-timers(3.000095) # bind (sleep elapsed now itimer-inside-driver inhibit-quit ignored) itimer-timer-driver(nil) # (condition-case ... . error) # (catch top-level ...)

The detailed versions involved :

xemacs -V

XEmacs 21.4 (patch 12) "Portable Code" [Lucid] (i686-pc-linux) of Tue Oct 21 2003 on titan

clisp --version

GNU CLISP 2.32 (2003-12-29) (built 3285056062) (memory 3285056598) Software: GNU C 3.2.3 20030422 (Gentoo Linux 1.4 3.2.3-r1, propolice) Programme en ANSI C Features: (ASDF MK-DEFSYSTEM COMMON-LISP-CONTROLLER CLX-ANSI-COMMON-LISP CLX SYSCALLS CLOS LOOP COMPILER CLISP ANSI-CL COMMON-LISP LISP=CL INTERPRETER SOCKETS GENERIC-STREAMS LOGICAL-PATHNAMES SCREEN FFI GETTEXT UNICODE BASE-CHAR=CHARACTER PC386 UNIX) Installation directory: /usr/lib/clisp/ User language: ENGLISH Machine: I686(I686)titan.si.c-s.fr [172.17.90.32] (build 2.32-r1 from gentoo)

System: IBM T20 (PIII 700), gentoo 1.4

Tanks in advance for any help, and for this otherwise already very functional piece of work.

Stephane Perrot

------------------------------------------

Faites un voeu et puis Voila ! www.voila.fr