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

[slime-devel] buffer readtables
by Tobias C. Rittweiler 28 Sep '09

28 Sep '09

I want to introduce the concept of buffer-readtables so C-c C-c and other commands will be able to process source strings with the right readtable being active. For that, the :EMACS-REX event has to be adapted. At the moment, it looks as follows (:emacs-rex rpc-sexp buffer-package buffer-thread cont-id) My plan is to change it to (:emacs-rex rpc-sexp cont-id buffer-context) where buffer-context is a plist of form (&key buffer-package buffer-thread &allow-other-keys) so that a contrib can extend what constitutes a buffer-context. Are you ok with this? Or is it too general? Should I instead add just another parameter specifically for buffer-readtables? -T.

3 5

[slime-devel] bug: slime-buffer-package not set on connection
by Jeffrey Chu 27 Sep '09

27 Sep '09

Hi, It looks like in slime-buffer-package is not being set after connection and (swank:create-repl nil) is called / returned. This causes things that call (slime-current-package), like slime-c-p-c, to be a little sad when the REPL's default package isn't "COMMON-LISP-USER". >From what I can tell, a good place to apply it is at the end of the slime-repl-connected-hook-function: diff a/contrib/slime-repl.el b/contrib/slime-repl.el --- a/contrib/slime-repl.el +++ b/contrib/slime-repl.el @@ -1519,9 +1519,11 @@ expansion will be added to the REPL's history.)" (let ((slime-current-thread t)) (slime-eval '(swank:create-repl nil))) (setf (slime-lisp-package) package) - (setf (slime-lisp-package-prompt-string) prompt)) - (slime-hide-inferior-lisp-buffer) - (slime-init-output-buffer (slime-connection))) + (setf (slime-lisp-package-prompt-string) prompt) + (slime-hide-inferior-lisp-buffer) + (slime-init-output-buffer (slime-connection)) + (with-current-buffer (slime-output-buffer) + (setf slime-buffer-package package)))) Please let me know if you need any additional information, - Jeff

2 1

[slime-devel] [BUG] Switching default connection does not work correctly
by Tobias C. Rittweiler 27 Sep '09

27 Sep '09

Steps to reproduce: M-x slime M-x slime "Create an additional *inferior-lisp*? (y or n)" -> y ,quit in the new REPL Currently there's no default connection, so the next Slime command with an RPC call asks for switching to a new default. At the other REPL, M-. on DEFUN. "No default connection selected. Switch to <foo>?" Now, when you answer that question with no, it asks the question again, and again, and after a few times (always negating the question), it performs the M-. in the non-selected connection even though it shouldn't. -T.

2 2

[slime-devel] Fwd: problems with loading files CYGWIN, CLISP
by Mirko Vukovic 27 Sep '09

27 Sep '09

By mistake I replied this to Helmut, instead of sending it to the list. ---------- Forwarded message ---------- From: Mirko Vukovic <mirko.vukovic(a)gmail.com> Date: Sat, Sep 26, 2009 at 9:29 AM Subject: Re: [slime-devel] problems with loading files CYGWIN, CLISP To: Helmut Eller <heller(a)common-lisp.net> On Fri, Sep 25, 2009 at 1:18 PM, Helmut Eller <heller(a)common-lisp.net> wrote: > * Stephen Lee [2009-09-25 16:28+0200] writes: > >> Attach is my *slime-events* buffer, yeap seems like it has something to do >> with parse-cygwin-filename. >> >> Anyone else has any idea what to do? > > I can only say that > > (swank-backend::parse-cygwin-filename "/home/stephen/test.lisp") > > works just fine with CLISP 2.48 on Linux. > I don't see why it wouldn't work on Windows. > > Helmut > > > _______________________________________________ > slime-devel site list > slime-devel(a)common-lisp.net > http://common-lisp.net/mailman/listinfo/slime-devel > I have this same problem with clisp 2.46 on cygwin. I traced it to `regexp:match' in `parse-cygwin-filename'. I took it up on clisp-list mailing list (subject: regexp:match returns with `VALUES: too many values' error). It turned out to be a bug in clisp - regexp:match would return nothing, not even nil in case of no matches. That was supposed to be fixed in a later release of clisp. I have not tried installing 2.48 yet - not sure if it has been compiled on cygwin. Mirko

1 0

[slime-devel] Daily ChangeLog diff
by Helmut Eller 27 Sep '09

27 Sep '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1865 slime/ChangeLog:1.1866 --- slime/ChangeLog:1.1865 Thu Sep 24 07:30:46 2009 +++ slime/ChangeLog Sat Sep 26 19:24:50 2009 @@ -1,3 +1,10 @@ +2009-09-27 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-sbcl.lisp (call-with-debugger-hook): Correctly deal with + case of HOOK being NIL. + (make-definition-source-location): Somewhat simplified. + (string-path-snippet): Removed, not needed anymore. + 2009-09-24 Stas Boukarev <stassats(a)gmail.com> * swank-sbcl.lisp (swank-compile-string): Ignore unused variable

1 0

[slime-devel] aborting read
by Terje Norderhaug 27 Sep '09

27 Sep '09

Does slime provide a way to abort reading from the listener? For example, say you evaluate a form that reads from the listener: ? (read) At this point, swank has dispatched :read-string to the client/emacs. Swank then wait-for-event :emacs-return-string until it gets the string. How can the wait-for-event be aborted from the client to result in :read-aborted? -- Terje Norderhaug

4 4

[slime-devel] problems with loading files CYGWIN, CLISP
by Stephen Lee 25 Sep '09

25 Sep '09

Hi I am having problems using C-c C-l in SLIME to load files, I am running CYGWIN, CLISP 2.46 and Emacs 23. The CLISP and emacs are from the cygwin packages. Every time i load a file using the above command the following stack trace will appear. Using a normal (load ) command the file loads ok, its only when I use the short cut then the following appears. Any suggestions? Oh I am using SLIME 2009-09-24 ---- VALUES: too many values [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [ABORT] Abort 2: [CLOSE-CONNECTION] Close SLIME connection 3: [ABORT] Abort main loop Backtrace: 0: [545] frame binding variables (~ = dynamically): | ~ SWANK::*SWANK-STATE-STACK* <--> NIL 1: [542] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-STEPPING-P* <--> NIL 2: [539] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-LEVEL* <--> 0 3: [536] frame binding variables (~ = dynamically): | ~ *PACKAGE* <--> #<PACKAGE COMMON-LISP-USER> 4: <1/529> #<COMPILED-FUNCTION SWANK::DEBUG-IN-EMACS> [528] frame binding variables (~ = dynamically): | ~ SWANK::*SLIME-INTERRUPTS-ENABLED* <--> T 5: <1/522> #<COMPILED-FUNCTION SWANK:INVOKE-SLIME-DEBUGGER> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2-1> 6: <1/520> #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2-1> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2-1> 7: [519] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> NIL 8: <1/515> #<COMPILED-FUNCTION #:|641 646 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-63-3-1|> - #<COMPILED-FUNCTION #:|641 646 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-63-3-1|> 9: <1/510> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2> 10: <1/507> #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2> 11: [506] handler frame for conditions SWANK::INVOKE-DEFAULT-DEBUGGER 12: [500] compiled tagbody frame for #(NIL) 13: <1/494> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> [492] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 14: <1/489> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1 [488] frame binding variables (~ = dynamically): | ~ SYSTEM::*PRIN-STREAM* <--> #<UNBOUND> 15: [485] frame binding variables (~ = dynamically): | ~ *PRINT-READABLY* <--> NIL 16: [482] frame binding variables (~ = dynamically): | ~ *PRINT-ESCAPE* <--> T 17: <1/478> #<SYSTEM-FUNCTION VALUES> 137 - NIL 18: <1/346> #<ADD-ON-SYSTEM-FUNCTION REGEXP:REGEXP-EXEC> 8 - #<FOREIGN-POINTER #x10211388> 19: <1/337> #<COMPILED-FUNCTION REGEXP::%MATCH> - #<COMPILED-FUNCTION SWANK-BACKEND::PARSE-CYGWIN-FILENAME> 20: <1/326> #<COMPILED-FUNCTION SWANK-BACKEND::PARSE-CYGWIN-FILENAME> - #<COMPILED-FUNCTION #:|119 122 (DEFIMPLEMENTATION FILENAME-TO-PATHNAME (STRING) ...)-10-1-1|> 21: <1/324> #<COMPILED-FUNCTION #:|119 122 (DEFIMPLEMENTATION FILENAME-TO-PATHNAME (STRING) ...)-10-1-1|> - #<COMPILED-FUNCTION #:|119 122 (DEFIMPLEMENTATION FILENAME-TO-PATHNAME (STRING) ...)-10-1-1|> 22: <1/320> #<COMPILED-FUNCTION SWANK-BACKEND:FILENAME-TO-PATHNAME> - #<COMPILED-FUNCTION SWANK:LOAD-FILE> 23: <1/318> #<COMPILED-FUNCTION SWANK:LOAD-FILE> - #<COMPILED-FUNCTION SWANK:LOAD-FILE> 24: [316] EVAL frame for form (SWANK:LOAD-FILE "/home/stephen/test.lisp") 25: [313] frame binding environments VAR_ENV <--> NIL FUN_ENV <--> NIL BLOCK_ENV <--> NIL GO_ENV <--> NIL DECL_ENV <--> ((DECLARATION OPTIMIZE DECLARATION)) 26: <1/308> #<SYSTEM-FUNCTION EVAL> [307] frame binding variables (~ = dynamically): | ~ SWANK::*SLIME-INTERRUPTS-ENABLED* <--> NIL 27: [304] frame binding variables (~ = dynamically): | ~ SWANK::*BUFFER-PACKAGE* <--> #<UNBOUND> 28: [301] frame binding variables (~ = dynamically): | ~ SWANK::*PENDING-CONTINUATIONS* <--> NIL 29: [298] frame binding variables (~ = dynamically): | ~ SWANK::*BUFFER-READTABLE* <--> #<UNBOUND> 30: [294] unwind-protect frame 31: <1/289> #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS> - #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS> 32: <1/280> #<COMPILED-FUNCTION SWANK::PROCESS-REQUESTS> [279] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-QUIT-RESTART* <--> #<UNBOUND> 33: [276] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME ABORT :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG #:SIMPLE-RESTART-2454.. 34: [273] compiled tagbody frame for #(NIL) 35: <1/267> #<COMPILED-FUNCTION SWANK::HANDLE-REQUESTS-1> - #<COMPILED-FUNCTION SWANK::HANDLE-REQUESTS-1> 36: <1/264> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION> [262] compiled tagbody frame for #(SWANK::START) 37: <1/256> #<COMPILED-FUNCTION SWANK::HANDLE-REQUESTS> - #<COMPILED-FUNCTION SWANK::MAKE-REPL-INPUT-STREAM-1-1> 38: <1/253> #<COMPILED-FUNCTION SWANK::MAKE-REPL-INPUT-STREAM-1-1> - #<COMPILED-FUNCTION SWANK::MAKE-REPL-INPUT-STREAM-1-1> 39: [252] frame binding variables (~ = dynamically): | ~ *STANDARD-OUTPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> | ~ *STANDARD-INPUT* <--> #<SWANK-BACKEND::SLIME-INPUT-STREAM #x1038AEE1> | ~ *TRAC.. 40: <1/233> #<COMPILED-FUNCTION SWANK::CALL-WITH-BINDINGS> - (#<IO UNBUFFERED SOCKET-STREAM CHARACTER 0.0.0.0:1155>) 41: <1/227> #<COMPILED-FUNCTION SWANK::MAKE-REPL-INPUT-STREAM-1> - #<COMPILED-FUNCTION SWANK::MAKE-REPL-INPUT-STREAM-1> 42: <1/224> #<COMPILED-FUNCTION #:|84 97 (DEFMETHOD STREAM-READ-CHAR (#) ...)-12-1-1-1|> - #<COMPILED-FUNCTION #:|84 97 (DEFMETHOD STREAM-READ-CHAR (#) ...)-12-1-1-1|> 43: <1/222> #<COMPILED-FUNCTION #:|1039 1043 (DEFINTERFACE CALL-WITH-LOCK-HELD (LOCK FUNCTION) ...)-124-3-1|> - #<COMPILED-FUNCTION #:|1039 1043 (DEFINTERFACE CALL-WITH-LOCK-HELD (LOCK FUNCTION) ...)-124-.. 44: <1/217> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-LOCK-HELD> [215] compiled block frame for STREAM-READ-CHAR 45: <1/210> #<COMPILED-FUNCTION #:|84 97 (DEFMETHOD STREAM-READ-CHAR (#) ...)-12-1-1|> <2/210> #<STANDARD-GENERIC-FUNCTION STREAM-READ-CHAR> <3/210> #<STANDARD-GENERIC-FUNCTION STREAM-READ-CHAR> - #<SWANK.. 46: [208] frame binding variables (~ = dynamically): | ~ SYSTEM::*READING-STRUCT* <--> NIL 47: [205] frame binding variables (~ = dynamically): | ~ SYSTEM::*READING-ARRAY* <--> NIL 48: [202] frame binding variables (~ = dynamically): | ~ SYSTEM::*BACKQUOTE-LEVEL* <--> #<UNBOUND> 49: [199] frame binding variables (~ = dynamically): | ~ SYSTEM::*READ-REFERENCE-TABLE* <--> #<UNBOUND> 50: [196] frame binding variables (~ = dynamically): | ~ SYSTEM::*READ-PRESERVE-WHITESPACE* <--> #<UNBOUND> 51: [193] frame binding variables (~ = dynamically): | ~ SYSTEM::*READ-RECURSIVE-P* <--> #<UNBOUND> 52: <1/190> #<SYSTEM-FUNCTION READ> [186] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME SWANK::CLOSE-CONNECTION :TEST #<COMPILED-FUNCTION SYSTEM::DEFAU.. 53: [183] catch frame for tag #:SIMPLE-RESTART-24547 54: <1/179> #<COMPILED-FUNCTION SWANK::SIMPLE-REPL> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-1-2-2-2> 55: <1/178> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-1-2-2-2> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-1-2-2-2> 56: [177] handler frame for conditions SWANK::SWANK-ERROR 57: <1/170> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-1-2-2> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-1-2-2> 58: [169] handler frame for conditions SWANK::SWANK-ERROR 59: [163] compiled tagbody frame for #(NIL) --more-- My Blog: http://sljm.blogspot.com My Twitter: http://www.twitter.com/stephenleejm _________________________________________________________________ More than messages–check out the rest of the Windows Live™. http://www.microsoft.com/windows/windowslive/

2 3

[slime-devel] Daily ChangeLog diff
by Helmut Eller 25 Sep '09

25 Sep '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1864 slime/ChangeLog:1.1865 --- slime/ChangeLog:1.1864 Wed Sep 23 07:20:02 2009 +++ slime/ChangeLog Thu Sep 24 07:30:46 2009 @@ -1,3 +1,8 @@ +2009-09-24 Stas Boukarev <stassats(a)gmail.com> + + * swank-sbcl.lisp (swank-compile-string): Ignore unused variable + warningsp. + 2009-09-23 Helmut Eller <heller(a)common-lisp.net> * swank-sbcl.lisp (receive-if): Bind *break-on-signals* to Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.247 slime/contrib/ChangeLog:1.248 --- slime/contrib/ChangeLog:1.247 Mon Sep 21 15:08:28 2009 +++ slime/contrib/ChangeLog Fri Sep 25 02:43:33 2009 @@ -1,3 +1,8 @@ +2009-09-25 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-sbcl-exts.lisp: Add EVAL-WHEN to prevent subtle dependency + problem. + 2009-09-21 Stas Boukarev <stassats(a)gmail.com> * slime-sprof.el, swank-sprof.lisp: New contrib for

1 0

[slime-devel] Setting FASL directory
by David Neu 24 Sep '09

24 Sep '09

Hi, I'd like to be able to set the location of the *.fasl files that are ending up in ~/.slime/fasl/..., preferably from my .emacs. I tried setting slime-compile-file-options in my .emacs file as follows (eval-after-load "slime" '(progn (setq slime-compile-file-options (append '(:fasl-directory "/tmp/") slime-compile-file-options)) ...)) but that didn't seem to do it. Then I tried to put the following in my ~/.swank.lisp file (setf swank:*fasl-pathname-function* (lambda (input-file options) (declare (ignore options)) (let* ((str "/tmp/") (dir (filename-to-pathname str))) (assert (char= (aref str (1- (length str))) #\/)) (compile-file-pathname input-file :output-file dir)))) but that didn't seem to do it. Many thanks for any suggestions! Cheers, David

4 8

[slime-devel] Daily ChangeLog diff
by Helmut Eller 24 Sep '09

24 Sep '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1862 slime/ChangeLog:1.1864 --- slime/ChangeLog:1.1862 Mon Sep 21 15:36:53 2009 +++ slime/ChangeLog Wed Sep 23 07:20:02 2009 @@ -1,3 +1,15 @@ +2009-09-23 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (receive-if): Bind *break-on-signals* to + nil before using with-timeout. + +2009-09-22 Helmut Eller <heller(a)common-lisp.net> + + * swank-ccl.lisp (find-definitions): For fbound symbols also + consider source-notes in the function object. Useful if + the function slot was set with (setf (symbol-function ..)) + and not by defun. + 2009-09-21 Stas Boukarev <stassats(a)gmail.com> * doc/slime.texi (slime-sprof): document slime-sprof contrib.

1 0