July 2008 - slime-devel - mailman3.common-lisp.net

[slime-devel] Output lost after disconnect reconnect
by Gábor Melis 29 Jul '08

29 Jul '08

After a disconnect, reconnect long running worker threads that were spawn for instance by C-x C-e in a lisp buffer send their output to the void. Detailed process to reproduce: 1. start an sbcl 2. (require 'asdf) (asdf:oos 'asdf:load-op 'swank) (setq swank:*globally-redirect-io* t) (setq swank:*global-debugger* t) (setf swank:*use-dedicated-output-stream* nil) (swank:create-server :dont-close t :port 4007) 3. connect from slime 4. from a buffer eval (loop (sleep 5) (print 'hello *trace-output*) (force-output *trace-output*)) 5. disconnect [At this point output should be going to the terminal where sbcl was started which is the case when the above snippet is wrapped in (sb-thread:make-thread (lambda () ...))). Instead it goes to nowhere.] 6. slime-connect again 7. observe that nobody says hello anymore The attached patch aims to fix this by: * swank.lisp (maybe-call-with-io-redirection): don't CALL-WITH-REDIRECTED-IO if *GLOBALLY-REDIRECT-IO*. Fixes lost output after disconnect, reconnect. Cheers, Gábor Melis

2 5

[slime-devel] Serverside Sources
by Dr. Helmut G. Enders 29 Jul '08

29 Jul '08

Hi, I'm using slime to connect to sbcl on a remote server. It works faultless and I'm very happy with it. My only problem is that I also have to keep the source files on the remote server. With trampoline this is no problem, too. I'm looking for a solution, to keep the source files locally, on my laptop (near my emacs). I tried sshfs, and nfs, scp etc., but this is very clumsy, if you use a laptop and access the server from different locations. (Different versions locally and on the server, etc.) Do you see a chance that after ^c-^k th remote lisp requests the source file via the slime protocol from my local laptop. So I would have all the sources of my projects, which run on different remote servers, locally on my laptop, save, always uptodate, easy for version management etc. Helmut

3 2

[slime-devel] [PATCH] Supplying environment variables to Lisp
by Richard M Kreuter 29 Jul '08

29 Jul '08

Hi, I'd like to propose the following feature, implemented in the attached patch: to allow slime-lisp-implementations to specify a list of strings to augment the process environment of the Lisp process. I've a couple of uses for this feature: (1) to run SLIME out of an SBCL build directory, with an implementation specification like this: (sbcl-cvs ("/home/me/sbcl-cvs/src/runtime/sbcl" "--core" "/home/me/sbcl-cvs/output/sbcl.core") :program-environment ("SBCL_HOME=/home/me/sbcl-cvs/contrib/")) (2) to work with Lisp applications that need environment variables during initialization, which variables I don't want to set Emacs-wide (because they might leak into unrelated things I do in other buffers, etc): (myworld-v1 ("/path/to/myworld-v1/bin/myworld") :program-environment ("LD_LIBRARY_PATH="/path/to/myworld-v1/lib/") (myworld-v2 ("/path/to/myworld-v2/bin/myworld") :program-environment ("LD_LIBRARY_PATH="/path/to/myworld-v2/lib/")) I know these things can already be done with wrapper scripts (and they still can), but I find wrapper scripts less pleasant to maintain than my .emacs file. The patch has been tested under GNU Emacs CVS and Xemacs 21.4. If the feature is okay but the implementation needs work in order to be merged, please let me know. Thanks, RmK

2 1

[slime-devel] [PATCH] *globally-redirect-io* and *communication-style* troubles
by Richard M Kreuter 29 Jul '08

29 Jul '08

Hi, When I run SBCL under slime with *GLOBALLY-REDIRECT-IO* true and *COMMUNICATION-STYLE* :FD-HANDLER or :SIGIO, I get a repl buffer with name "*slime-repl nil*", and any subsequent SBCLs created by slime steal this buffer. The problem is that with *GLOBALLY-REDIRECT-IO*, the initial "Adding ... handler" messages get to Emacs before the reply to (swank:connection-info), and so the event processing on the slime side creates the repl buffer before the slime connection has been initialized. Getting rid of those messages seems to fix things. Thanks, RmK --- swank-sbcl.lisp 17 Jul 2008 22:19:11 -0000 1.199 +++ swank-sbcl.lisp 22 Jul 2008 22:22:39 -0000 @@ -133,7 +133,6 @@ (defimplementation add-sigio-handler (socket fn) (set-sigio-handler) (let ((fd (socket-fd socket))) - (format *debug-io* "Adding sigio handler: ~S ~%" fd) (enable-sigio-on-fd fd) (push (cons fd fn) *sigio-handlers*))) @@ -146,7 +145,6 @@ (defimplementation add-fd-handler (socket fn) (declare (type function fn)) (let ((fd (socket-fd socket))) - (format *debug-io* "; Adding fd handler: ~S ~%" fd) (sb-sys:add-fd-handler fd :input (lambda (_) _ (funcall fn)))))

2 1

[slime-devel] [PATCH] slime-quit-lisp from a non-default connection
by Richard M Kreuter 29 Jul '08

29 Jul '08

Hi, slime-quit-lisp gets an error in slime-connection when quitting from a slime-repl buffer associated with a connection other than the default. To reproduce: (1) make one slime connection, (2) make another slime connection, (3) switch to the first connection's slime-repl buffer, (4) use ,q<RET>. The error isn't terribly serious, but it leaves *inferior-lisp* buffers behind, which can be annoying in some modes of usage. I think the trouble is that slime-quit-lisp is killing something too early, but I'm not certain. Whatever the cause, the attached patch seems to make the error go away, at least for my setup. Thanks, RmK

2 1

[slime-devel] ,quit with multiple connections
by Stas Boukarev 28 Jul '08

28 Jul '08

When I have multiple connections and do ,quit in the non-default repl i get: "Lisp connection closed unexpectedly: connection broken by remote peer" and default repl becomes unusable but its inferior process works. If I do this in default repl everything's fine. -- With Best Regards, Stas.

2 1

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 27 Jul '08

27 Jul '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1374 slime/ChangeLog:1.1375 --- slime/ChangeLog:1.1374 Wed Jul 23 10:29:26 2008 +++ slime/ChangeLog Sat Jul 26 19:05:59 2008 @@ -1,3 +1,14 @@ +2008-07-27 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank.lisp (swank-compiler): Fix bug when invoking an abort + restart on a failed compilation attempt. + + * swank-sbcl.lisp (swank-compile-string): If a compilation attempt + fails, COMPILE-FILE returns NIL which we tried to LOAD. Fix that. + + * swank-backend.lisp (swank-compile-string, swank-compile-file): + Document return value. + 2008-07-23 Tobias C. Rittweiler <tcr(a)freebits.de> * swank-loader.lisp (*contribs*): Added `swank-package-fu'.

1 0

[slime-devel] second slime does not use lisp process arguments
by Antony Sequeira 25 Jul '08

25 Jul '08

Hi I am using slime from cvs (I think downloaded around July 5th) In my .emacs i put (setq slime-default-lisp 'sbcl) (setq slime-lisp-implementations '( (sbcl ("sbcl" "--userinit" "/home/antony/fooo.lisp") :coding-system utf-8-unix ) (ccl ("/home/antony/bin/ccl")) )) I run M-x slime and it starts sbcl correctly If I change (setq slime-default-lisp 'sbcl) to (setq slime-default-lisp 'ccl) Now ccl runs correctly , but when I do C-u M-x slime sbcl it runs sbcl but does not seem to use the parameters "sbcl" "--userinit" "/home/antony/fooo.lisp The same thing thing happens vice versa for ccl (which I don't understand at all since it has no parameters, I have it hard coded in my shell script home/antony/bin/ccl) Summary of the problem as I see it - I can't have a second slime that uses program arguments I can include more of my .emacs if this is not sufficient. Thanks, -Antony

2 1

[slime-devel] Daily ChangeLog diff
by mbaringer＠common-lisp.net 24 Jul '08

24 Jul '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1372 slime/ChangeLog:1.1374 --- slime/ChangeLog:1.1372 Sat Jul 19 07:34:19 2008 +++ slime/ChangeLog Wed Jul 23 10:29:26 2008 @@ -1,3 +1,13 @@ +2008-07-23 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-loader.lisp (*contribs*): Added `swank-package-fu'. + +2008-07-23 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (slime-at-list-p): New. Returns t if point is at a list. + (slime-at-expression-p): New. Similiar to `slime-in-expression-p'. + (slime-end-of-list): New. Pendant to `slime-beginning-of-list'. + 2008-07-19 Tobias C. Rittweiler <tcr(a)freebits.de> REPL shortcuts now leave an appropriate Common Lisp form in the Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.109 slime/contrib/ChangeLog:1.110 --- slime/contrib/ChangeLog:1.109 Sat Jul 19 07:39:23 2008 +++ slime/contrib/ChangeLog Wed Jul 23 10:27:36 2008 @@ -1,5 +1,12 @@ 2008-07-19 Tobias C. Rittweiler <tcr(a)freebits.de> + * slime-package-fu.el, swank-package-fu.lisp: New contrib to + aumatically add symbols to the relevant DEFPACKAGE forms. + You can use `C-c x' to export the symbol at point, and + `C-u C-c x' to unexport it. + +2008-07-19 Tobias C. Rittweiler <tcr(a)freebits.de> + * slime-asdf.el (slime-oos): Use `slime-repl-shortcut-async'. 2008-07-16 Tobias C. Rittweiler <tcr(a)freebits.de>

1 0

[slime-devel] No "Go to definition" with latest (CVS) slime and CLISP 2.46
by Blake McBride 21 Jul '08

21 Jul '08

Greetings, I just checked out the latest CVS slime and I am using it with CLISP 2.46. When I try Go to definition (M-.) I get: PARSE-NAMESTRING: argument #1=(SYSTEM::DEFUN/DEFMACRO #P"/home/blake/tmp/f1.fas" 6 7) should be a pathname designator #2=(OR STRING FILE-STREAM PATHNAME) [Condition of type SIMPLE-TYPE-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [CLOSE-CONNECTION] Close SLIME connection Backtrace: 0: [258] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-STEPPING-P* <--> NIL 1: [255] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-LEVEL* <--> 0 2: [252] frame binding variables (~ = dynamically): | ~ *PACKAGE* <--> #<PACKAGE COMMON-LISP-USER> 3: <1/246> #<COMPILED-FUNCTION SWANK::DEBUG-IN-EMACS> - #(NIL #<SIMPLE-TYPE-ERROR #x204027B6>) 4: <1/243> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> [241] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 5: <1/238> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1 [237] frame binding variables (~ = dynamically): | ~ SYSTEM::*PRIN-STREAM* <--> #<UNBOUND> 6: [234] frame binding variables (~ = dynamically): | ~ *PRINT-READABLY* <--> NIL 7: [231] frame binding variables (~ = dynamically): | ~ *PRINT-ESCAPE* <--> T 8: <1/228> #<SYSTEM-FUNCTION PARSE-NAMESTRING> 1 - #<UNBOUND> 9: <1/222> #<SYSTEM-FUNCTION PATHNAME-TYPE> - NIL 10: <1/217> #<COMPILED-FUNCTION SWANK-BACKEND::FSPEC-PATHNAME> - #<COMPILED-FUNCTION SWANK-BACKEND::FSPEC-LOCATION> 11: <1/215> #<COMPILED-FUNCTION SWANK-BACKEND::FSPEC-LOCATION> - FUN2 12: <1/212> #<COMPILED-FUNCTION #:|244 245 (DEFIMPLEMENTATION FIND-DEFINITIONS (NAME) ...)-21-1-1|> - #<COMPILED-FUNCTION #:|244 245 (DEFIMPLEMENTATION FIND-DEFINITIONS (NAME) ...)-21-1-1|> 13: <1/208> #<COMPILED-FUNCTION SWANK-BACKEND:FIND-DEFINITIONS> - #<COMPILED-FUNCTION SWANK::XREF>ELISP> 14: <1/202> #<COMPILED-FUNCTION SWANK:FIND-DEFINITIONS-FOR-EMACS> - #<COMPILED-FUNCTION SWANK:FIND-DEFINITIONS-FOR-EMACS> 15: [200] EVAL frame for form (SWANK:FIND-DEFINITIONS-FOR-EMACS "fun2") 16: [197] frame binding environments VAR_ENV <--> NIL FUN_ENV <--> NIL BLOCK_ENV <--> NIL GO_ENV <--> NIL DECL_ENV <--> ((DECLARATION OPTIMIZE DECLARATION)) 17: <1/192> #<SYSTEM-FUNCTION EVAL> [191] frame binding variables (~ = dynamically): | ~ SWANK::*BUFFER-PACKAGE* <--> #<UNBOUND> 18: [188] frame binding variables (~ = dynamically): | ~ SWANK::*PENDING-CONTINUATIONS* <--> NIL 19: [185] frame binding variables (~ = dynamically): | ~ SWANK::*BUFFER-READTABLE* <--> #<UNBOUND> 20: [181] unwind-protect frame 21: <1/176> #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1> - #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1> 22: [175] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 23: <1/171> #<COMPILED-FUNCTION #:|593 598 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> - #<COMPILED-FUNCTION #:|593 598 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> 24: <1/166> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK> - #(NIL (SWANK:FIND-DEFINITIONS-FOR-EMACS "fun2") NIL 3) 25: <1/162> #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS> <2/162> #<SYSTEM-FUNCTION FUNCALL> 4 - SWANK::EVAL-FOR-EMACS 26: <1/155> #<COMPILED-FUNCTION SWANK::READ-FROM-EMACS> [155] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-QUIT-RESTART* <--> ABORT 27: [152] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME SWANK::CLOSE-CONNECTION :TEST #1=#<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-21493 :INVOKE-FUNCTION NIL :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Close SLIME connection")> :INTERACTIVE #2=#<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T) #S(RESTART :NAME ABORT :TEST #1# :INVOKE-TAG NIL :INVOKE-FUNCTION #<COMPILED-FUNCTION SYSTEM::MAIN-LOOP-1-1> :REPORT #<COMPILED-FUNCTION SYSTEM::MAIN-LOOP-1-2> :INTERACTIVE #2# :MEANINGFULP T)) 28: [149] catch frame for tag #:SIMPLE-RESTART-20983 29: <1/145> #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST-1> - #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST-1> 30: [144] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 31: <1/140> #<COMPILED-FUNCTION #:|593 598 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> - #<COMPILED-FUNCTION #:|593 598 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-57-3-1|> 32: <1/135> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-1> 33: <1/132> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-1> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-1> 34: [131] frame binding variables (~ = dynamically): | ~ *TERMINAL-IO* <--> #<IO TERMINAL-STREAM> 35: [128] frame binding variables (~ = dynamically): | ~ *STANDARD-INPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 36: [125] frame binding variables (~ = dynamically): | ~ *QUERY-IO* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 37: [122] frame binding variables (~ = dynamically): | ~ *DEBUG-IO* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 38: [119] frame binding variables (~ = dynamically): | ~ *TRACE-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 39: [116] frame binding variables (~ = dynamically): | ~ *ERROR-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 40: [113] frame binding variables (~ = dynamically): | ~ *STANDARD-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 41: <1/105> #<COMPILED-FUNCTION SWANK::CALL-WITH-REDIRECTED-IO> - #<COMPILED-FUNCTION SWANK::MAYBE-CALL-WITH-IO-REDIRECTION> 42: <1/102> #<COMPILED-FUNCTION SWANK::MAYBE-CALL-WITH-IO-REDIRECTION> [100] frame binding variables (~ = dynamically): | ~ SWANK::*EMACS-CONNECTION* <--> NIL 43: <1/95> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION> [93] frame binding variables (~ = dynamically): | ~ SWANK::*SWANK-STATE-STACK* <--> NIL 44: <1/89> #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> 45: <1/87> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> 46: [86] handler frame for conditions SWANK::SWANK-ERROR 47: [80] compiled block frame for #S(RESTART :NAME SWANK::CLOSE-CONNECTION :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-21493 :INVOKE-FUNCTION NIL :REPORT #<FUNCTION :LAMBDA (STREAM) (FORMAT STREAM "Close SLIME connection")> :INTERACTIVE #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T) 48: [76] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME ABORT :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG NIL :INVOKE-FUNCTION #<COMPILED-FUNCTION SYSTEM::MAIN-LOOP-1-1> :REPORT #<COMPILED-FUNCTION SYSTEM::MAIN-LOOP-1-2> :INTERACTIVE #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-INTERACTIVE> :MEANINGFULP T)) 49: [73] catch frame for tag #:SIMPLE-RESTART-21493 50: [70] unwind-protect frame 51: <1/66> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS> 52: <1/63> #<COMPILED-FUNCTION SWANK::SERVE-REQUESTS> - #<SWANK::CONNECTION #x203FBC26> 53: [60] unwind-protect frame 54: <1/56> #<COMPILED-FUNCTION SWANK::SERVE-CONNECTION> - #<COMPILED-FUNCTION SWANK::SETUP-SERVER-SERVE> 55: <1/51> #<COMPILED-FUNCTION SWANK::SETUP-SERVER-SERVE> - NIL 56: <1/45> #<COMPILED-FUNCTION SWANK::SETUP-SERVER> - #(NIL "/tmp/slime.19641") 57: <1/38> #<COMPILED-FUNCTION SWANK:START-SERVER> <2/37> #<SYSTEM-FUNCTION FUNCALL> 4 - SWANK:START-SERVER 58: [33] EVAL frame for form (FUNCALL (READ-FROM-STRING "swank:start-server") "/tmp/slime.19641" :CODING-SYSTEM "iso-latin-1-unix") 59: <1/30> #<SPECIAL-OPERATOR PROGN> [29] EVAL frame for form (PROGN (LOAD "/home/blake/slime/swank-loader.lisp" :VERBOSE T) (FUNCALL (READ-FROM-STRING "swank-loader:init")) (FUNCALL (READ-FROM-STRING "swank:start-server") "/tmp/slime.19641" :CODING-SYSTEM "iso-latin-1-unix")) --more--

1 0