February 2004 - slime-devel - mailman3.common-lisp.net

[slime-devel] slime/clisp freezes a fresh xemacs
by <s.perrot＠voila.fr> 07 Feb '04

07 Feb '04

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

3 3

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 06 Feb '04

06 Feb '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.246 slime/ChangeLog:1.247 --- slime/ChangeLog:1.246 Thu Feb 5 02:03:29 2004 +++ slime/ChangeLog Thu Feb 5 18:21:12 2004 @@ -1,3 +1,10 @@ +2004-02-06 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (sldb-setup): Offer to enter a recursive edit if there + are pending continuations. + (slime-eval): Unwind the stack, thereby exititing recursive edits, + before signaling the error. + 2004-02-05 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> * swank-openmcl.lisp (compile-system-for-emacs): Remove compile

1 0

[slime-devel] OpenMCL and OS X
by David Magda 06 Feb '04

06 Feb '04

[ I'm posting through GMAME (for now), so please CC me. Hopefully SLIME will just work after this so I won't have to bother you again. :> ] I'm having trouble getting SLIME to work with a 'M-x slime'. I get the following error: Welcome to OpenMCL Version (Alpha: Darwin) 0.14-031220! ? ;; Compiling /Users/dmagda/Code/lisp/slime/swank-openmcl.lisp... ; Warning: Interface file #4P"ccl:darwin-headers;libc;functions.cdb" does not exist. ; While executing: CCL::CDB-OPEN Read error between positions 6215 and 6330 in /Users/dmagda/Code/lisp/slime/swank-openmcl.lisp. > Error in process listener(1): Foreign function not found: OS::|tmpnam| > While executing: CCL::LOAD-EXTERNAL-FUNCTION > Type :POP to abort. Type :? for other options. I've download the "jaguar-interfaces" (assuming it will work under Panther (10.3.2)). I've put everything in "/Users/dmagda/Code/ccl". Here's the directory listing: gandalf:~/Code/ccl> ls LGPL ccl/ doc/ dppccl.image LICENSE darwin-headers/ dppccl* scripts/ The "CCL_DEFA..." directory is set as: CCL_DEFAULT_DIRECTORY=/Users/dmagda/Code/ccl Any suggestions?

2 4

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 05 Feb '04

05 Feb '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.243 slime/ChangeLog:1.246 --- slime/ChangeLog:1.243 Mon Feb 2 02:31:29 2004 +++ slime/ChangeLog Thu Feb 5 02:03:29 2004 @@ -1,3 +1,40 @@ +2004-02-05 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank-openmcl.lisp (compile-system-for-emacs): Remove compile + time dependency on ASDF. + +2004-02-05 Wolfgang Jenkner <wjenkner(a)inode.at> + + * swank-clisp.lisp, swank-loader.lisp: Add profiling support via + Kantrowitz's metering package. Reporting needs to be + refined (profile-package currently ignores callers-p and methods). + +2004-02-04 Bryan O'Connor <bryan-slime(a)lunch.org> + + * swank-openmcl.lisp (mailbox): Use a semaphore instead of + process-wait. Works better with native threads. + +2004-02-04 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank-backend.lisp (debugger-info-for-emacs): Export it. + + * swank-sbcl.lisp (add-input-handler): Use fcntl from the sb-posix + package. + + * swank.lisp (sldb-loop, dispatch-event, send-to-socket-io): Send + a :debug-activate event instead of a :debug event (to avoid + sending a potentially long backtrace each time). + (handle-sldb-condition): Include the thread-id in the message. + + * slime.el (slime-path): Use load-file-name as fallback. + Suggested by Lawrence Mitchell. + (slime-dispatch-event): Add support for :debug-activate event. + (sldb-activate): New function. + (sldb-mode): make-local-hook doesn't seem to work in Emacs 20. + Use a buffer local variable instead. + (slime-list-connections): Don't print Lisp's state. + (slime-short-state-name): Deleted. + 2004-02-02 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> * slime.el (slime-debugger): The customization group is called

1 0

[slime-devel] patch for openmcl backend
by bryan o'connor 04 Feb '04

04 Feb '04

the openmcl backend was using ccl:process-wait for the control thread which would spike cpu usage while idling. (and more annoyingly cause the fans on my powerbook to spin up) i added a semaphore and use that instead to signal new data to be received. ...bryan Index: swank-openmcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-openmcl.lisp,v retrieving revision 1.58 diff -u -r1.58 swank-openmcl.lisp --- swank-openmcl.lisp 31 Jan 2004 15:07:35 -0000 1.58 +++ swank-openmcl.lisp 4 Feb 2004 21:38:13 -0000 @@ -590,6 +590,7 @@ (defstruct (mailbox (:conc-name mailbox.)) (mutex (ccl:make-lock "thread mailbox")) + (semaphore (ccl:make-semaphore)) (queue '() :type list)) (defimplementation spawn (fn &key name) @@ -640,11 +641,12 @@ (mutex (mailbox.mutex mbox))) (ccl:with-lock-grabbed (mutex) (setf (mailbox.queue mbox) - (nconc (mailbox.queue mbox) (list message)))))) + (nconc (mailbox.queue mbox) (list message))) + (ccl:signal-semaphore (mailbox.semaphore mbox))))) (defimplementation receive () (let* ((mbox (mailbox ccl:*current-process*)) (mutex (mailbox.mutex mbox))) - (ccl:process-wait "receive" #'mailbox.queue mbox) + (ccl:wait-on-semaphore (mailbox.semaphore mbox)) (ccl:with-lock-grabbed (mutex) (pop (mailbox.queue mbox)))))

2 1

[slime-devel] Problem with Slime and packages
by Gary King 02 Feb '04

02 Feb '04

Is there a way to change packages in the SLIME REPL. If I do: CL-USER> (in-package eksl-builder) #<Package "EKSL-BUILDER"> CL-USER> *package* #<Package "COMMON-LISP-USER"> CL-USER> (This is using either SBCL or OpenMCL). Thanks, -- Gary Warren King, Lab Manager EKSL East, University of Massachusetts * 413 577 0176 All are equal before the law and are entitled without any discrimination to equal protection of the law. All are entitled to equal protection against any discrimination in violation of this Declaration and against any incitement to such discrimination. -- Universal Declaration of Human Rights, Article 7

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 02 Feb '04

02 Feb '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.242 slime/ChangeLog:1.243 --- slime/ChangeLog:1.242 Sat Jan 31 15:23:57 2004 +++ slime/ChangeLog Mon Feb 2 02:31:29 2004 @@ -1,3 +1,11 @@ +2004-02-02 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-debugger): The customization group is called + 'slime-debugger', fix referrers. Reported by Jouni K Seppanen. + + * swank.lisp (simple-break): Bind *debugger-hook* before invoking + the debugger. Reported by Michael Livshin. + 2004-01-31 Robert E. Brown <bbrown(a)speakeasy.net> * swank-sbcl.lisp, swank.lisp: Add more type declarations and @@ -7,7 +15,6 @@ * slime.el (slime-path): Placed inside an eval-and-compile. Works around some problems when byte-compiling slime-changelog-date. - (slime-swank-connection-retries): 2004-01-31 Marco Baringer <mb(a)bese.it> @@ -26,7 +33,7 @@ 2004-01-31 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> - * Merge stateless-emacs branch into main trunk. We use now signal + Merge stateless-emacs branch into main trunk. We use now signal driven IO for CMUCL and one thread per request for multithreaded Lisps.

1 0

[slime-devel] eval-string bug?
by Alan Ruttenberg 02 Feb '04

02 Feb '04

Looks like macroexpand and other uses of eval-string don't read in the right package. BTW, I've run into a limitation of the current multiprocessing scheme. E.g. if you have a single repl that is busy then you can't meta-point or macroexpand. Was the creation of a dedicated control stream considered and rejected? It would be useful to have a guaranteed connection from emacs to the lisp - another use would be to have the control stream use process-interrupt instead of relying on sigint getting to the correct thread. -Alan

4 19

[slime-devel] Slime customization groups
by Jouni K Seppanen 02 Feb '04

02 Feb '04

In slime.el, two customization groups are defined: | (defgroup slime nil | "Interfaction with the Superior Lisp Environment." | :prefix "slime-" | :group 'applications) | (defgroup slime-debugger nil | "Backtrace options and fontification." | :prefix "sldb-" | :group 'slime) However, all debugger-related options belong to group sldb, not slime-debugger, e.g.: | (defcustom sldb-enable-styled-backtrace t "Enable faces in slime backtrace" | :type '(choice | (const :tag "Enable" t) | (const :tag "Disable" nil)) | :group 'sldb) The result is that the slime group has a link to the slime-debugger group, which is empty, and to customize the debugger options one has to invoke (customize-group 'sldb) directly. It seems to me that either the group on all these options should be changed to slime-debugger, or the group slime-debugger should be renamed to sldb. -- Jouni K Seppänen

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 01 Feb '04

01 Feb '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.237 slime/ChangeLog:1.242 --- slime/ChangeLog:1.237 Thu Jan 29 03:42:36 2004 +++ slime/ChangeLog Sat Jan 31 15:23:57 2004 @@ -1,3 +1,41 @@ +2004-01-31 Robert E. Brown <bbrown(a)speakeasy.net> + + * swank-sbcl.lisp, swank.lisp: Add more type declarations and + detect missing initargs for the connection struct. + +2004-01-31 Jouni K Seppanen <jks(a)iki.fi> + + * slime.el (slime-path): Placed inside an eval-and-compile. Works + around some problems when byte-compiling slime-changelog-date. + (slime-swank-connection-retries): + +2004-01-31 Marco Baringer <mb(a)bese.it> + + * swank-openmcl.lisp: remove defslimefun-unimplemented forms. + (call-with-compilation-hooks, compile-system-for-emacs): Implement + them. + (compile-file-for-emacs, compile-string-for-emacs): Use + with-compilation-hooks. + (list-callers): Define with defimplementation and not defslimefun. + + * swank-backend.lisp (compile-system-for-emacs): Declare method + as part of the interface. + + * slime.el (slime-find-asd): Handle files whose directory does + not contain an asdf system definition. + +2004-01-31 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * Merge stateless-emacs branch into main trunk. We use now signal + driven IO for CMUCL and one thread per request for multithreaded + Lisps. + +2004-01-31 Robert E. Brown <bbrown(a)speakeasy.net> + + * swank-backend.lisp, swank-sbcl.lisp, + swank-source-path-parser.lisp, swank.lisp: Add type declarations + to keep SBCL quiet. + 2004-01-29 Michael Weber <michaelw+slime(a)foldr.org> * slime.el, swank-backend.lisp, swank-cmucl.lisp, swank-sbcl.lisp,

1 0