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

[slime-devel] xref buffer breaks window layout
by Stanisław Halik 05 Jan '09

05 Jan '09

When the xref buffer appears (typically for generic functions or ones with compiler macros), exiting it through either the 'q' key or space bar breaks the window layout. If I have 2 windows, each with a buffer, exiting the xref buffer leaves only one of them, being the window from which meta-point was pressed. Ideally, it would notice when it replaced a window and make it appear again. -- You only have power over people so long as you don’t take everything away from them. But when you’ve robbed a man of everything he’s no longer in your power — he’s free again. -- Aleksandr Isayevich Solzhenitsyn

1 0

[slime-devel] Warning in compiling swank-sbcl.lisp on SBCL HEAD
by Stelian Ionescu 05 Jan '09

05 Jan '09

; file: /usr/share/common-lisp/source/swank/swank-sbcl.lisp ; in: DEFIMPLEMENTATION ARGLIST ; (SB-INTROSPECT:FUNCTION-ARGLIST SWANK-BACKEND::FNAME) ; ; caught WARNING: ; (in macroexpansion of (SB-INTROSPECT:FUNCTION-ARGLIST FNAME))(hint: For more precise location, try *BREAK-ON-SIGNALS*.)using deprecated SB-INTROSPECT:FUNCTION-ARGLIST, should use SB-INTROSPECT:FUNCTION-LAMBDA-LIST instead -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.

2 1

[slime-devel] swank:*sldb-printer-bindings* binding *print-lines* to 10
by Tobias C. Rittweiler 05 Jan '09

05 Jan '09

Is there a particular reason why SWANK:*SLDB-PRINTER-BINDINGS* binds *PRINT-LINES* to 10 instead of NIL? This truncates error messages in many cases, for example: The value #S(SB-C::DEBUG-SOURCE :NAMESTRING "/tmp/file7pJ3qL.lisp" :CREATED 3440074405 :SOURCE-ROOT 0 :START-POSITIONS #(0) :FORM NIL :FUNCTION NIL :COMPILED 3440074405 :PLIST (:EMACS-BUFFER "foo.lisp" :EMACS-DIRECTORY "/tmp/" ..)) [Condition of type TYPE-ERROR] The most interesting piece of that error message (the expected type) is left out which is unfortune. (Using `C' to inspect the condition works for this particular case, but does not necessarily work to retrieve the crucial information in the general case.) -T.

2 8

[slime-devel] Daily ChangeLog diff
by Helmut Eller 05 Jan '09

05 Jan '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1630 slime/ChangeLog:1.1633 --- slime/ChangeLog:1.1630 Sat Jan 3 21:33:51 2009 +++ slime/ChangeLog Sun Jan 4 20:54:00 2009 @@ -1,3 +1,23 @@ +2009-01-04 Helmut Eller <heller(a)common-lisp.net> + + Make it possible to limit the number of displayed restarts. + + * slime.el (sldb-initial-restart-limit) + (sldb-insert-more-restarts): New. + (sldb-setup, sldb-insert-restarts): Use it. + +2009-01-04 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-local-variable-p): New function. XEmacs requires + two arguments. + +2009-01-04 Helmut Eller <heller(a)common-lisp.net> + + * swank-cmucl.lisp (note-error-location): If possible, include the + filename. + * slime.el (slime-goto-location-position): Add :eof as position + kind. + 2009-01-03 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-goto-location-buffer): Don't goto point-min. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.162 slime/contrib/ChangeLog:1.163 --- slime/contrib/ChangeLog:1.162 Fri Jan 2 22:02:24 2009 +++ slime/contrib/ChangeLog Sun Jan 4 20:53:06 2009 @@ -1,3 +1,8 @@ +2009-01-04 Helmut Eller <heller(a)common-lisp.net> + + * slime-repl.el, slime-mrepl.el: Byte-compile the output + functions. + 2009-01-02 Helmut Eller <heller(a)common-lisp.net> * slime-mrepl.el: New file.

1 0

[slime-devel] C-c C-z in Slime-Popup-Buffers.
by Tobias C. Rittweiler 04 Jan '09

04 Jan '09

What is the reason that the binding for C-c C-z in the keymap for slime-popup-buffers is commented out? -T.

2 3

[slime-devel] Daily ChangeLog diff
by Helmut Eller 04 Jan '09

04 Jan '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1625 slime/ChangeLog:1.1630 --- slime/ChangeLog:1.1625 Fri Jan 2 22:03:27 2009 +++ slime/ChangeLog Sat Jan 3 21:33:51 2009 @@ -1,3 +1,30 @@ +2009-01-03 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-goto-location-buffer): Don't goto point-min. + (slime-check-location-buffer-name-sanity) + (slime-check-location-filename-sanity): Separated from + slime-goto-location-buffer. + (slime-line-number-at-pos): New compatibility function. + +2009-01-03 Helmut Eller <heller(a)common-lisp.net> + + By default, show compiler notes in a buffer with compilation-mode. + + * slime.el (slime-show-compilation-log) + (slime-maybe-show-compilation-log): New functions, + (slime-compilation-finished-hook): Change the default value + to 'slime-maybe-show-compilation-log. + +2009-01-03 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (simple-serve-requests, make-repl-input-stream): + Move the call to WITH-CONNECTION to the input stream to pick up + stream redirections. + +2009-01-03 Helmut Eller <heller(a)common-lisp.net> + + * swank-clisp.lisp (wait-for-input): Disable it for win32. + 2009-01-02 Helmut Eller <heller(a)common-lisp.net> Experimental implementation of "channels".

2 2

[slime-devel] [PATCH] slime.el: typofix `slime-close-channel'
by Ariel Badichi 04 Jan '09

04 Jan '09

--- slime.el | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/slime.el b/slime.el index 08a3a91..35a52c2 100644 --- a/slime.el +++ b/slime.el @@ -2448,7 +2448,7 @@ Debugged requests are ignored." ch)) (defun slime-close-channel (channel) - (setf (slime-channels.operations channel) 'closed-channel) + (setf (slime-channel.operations channel) 'closed-channel) (let ((probe (assq (slime-channel.id channel) (slime-channels)))) (cond (probe (setf (slime-channels) (delete probe (slime-channels)))) (t (error "Invalid channel: %s" channel))))) -- 1.6.1.40.g8ea6a

1 0

[slime-devel] indentation of LOOP
by Tobias C. Rittweiler 03 Jan '09

03 Jan '09

If there's not a major outcry, I'll make `slime-setup' do the following (setq lisp-simple-loop-indentation 1 lisp-loop-keyword-indentation 6 lisp-loop-forms-indentation 6) so LOOP gets indented like (loop for x ... for y ... collect (cons x y)) instead of (loop for x ... for y ... collect (cons x y)) -T.

4 3

[slime-devel] Daily ChangeLog diff
by Helmut Eller 03 Jan '09

03 Jan '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1619 slime/ChangeLog:1.1625 --- slime/ChangeLog:1.1619 Thu Jan 1 16:08:53 2009 +++ slime/ChangeLog Fri Jan 2 22:03:27 2009 @@ -1,3 +1,39 @@ +2009-01-02 Helmut Eller <heller(a)common-lisp.net> + + Experimental implementation of "channels". + The idea is to support arbitrary protocols without + changes to the low level event dispatcher. + + * slime.el (slime-make-channel, slime-close-channel) + (slime-channel-send, slime-send-to-remote-channel): New functions. + (slime-define-channel-type, slime-define-channel-method): New + macros. + (slime-dispatch-event): Support channel events. + * swank.lisp (channel, listener-channel): New classes. + (channel-send, send-to-remote-channel): New functions. + (create-listener): New function. Test case for channel code. + (process-requests): Process channel events. + +2009-01-02 Helmut Eller <heller(a)common-lisp.net> + + * slime.el ([test] arglist): Guard against nil. ECL + returns nil most of the time. + +2009-01-01 Tobias C. Rittweiler <tcr(a)freebits.de> + + Arglists of user-defined types are now displayed by slime-autodoc + on SBCL. + + (deftype foo (x y) `(cons ,x ,y)) + (declare (type (foo | + + * swank-sbcl.lisp ([method] type-specifier-arglist): Make use of + recently introduced SB-INTROSPECT:DEFTYPE-LAMBDA-LIST. + +2009-01-01 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-loader.lisp (*contribs*): Add `swank-sbcl-exts'. + 2009-01-01 Tobias C. Rittweiler <tcr(a)freebits.de> * slime.el (slime-eval-async, slime-dispatch-event): Canoncalize @@ -44,8 +80,6 @@ 2008-12-31 Helmut Eller <heller(a)common-lisp.net> - * swank-openmcl.lisp ([method] source-locations (symbol)): - * slime.el (slime-cd, slime-pwd): New commands. (slime-change-directory): New function. (slime-change-directory-hooks): New hook. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.161 slime/contrib/ChangeLog:1.162 --- slime/contrib/ChangeLog:1.161 Thu Jan 1 15:54:30 2009 +++ slime/contrib/ChangeLog Fri Jan 2 22:02:24 2009 @@ -1,3 +1,7 @@ +2009-01-02 Helmut Eller <heller(a)common-lisp.net> + + * slime-mrepl.el: New file. + 2009-01-01 Tobias C. Rittweiler <tcr(a)freebits.de> * slime-autodoc.el: Autodoc is now implemented on top of ElDoc.

1 0

[slime-devel] Problems Using SLIME on Windows XP
by Karl Winterling 02 Jan '09

02 Jan '09

When I do M-x slime-connect, I get an error in the SLIME debugger. I use a CLISP 2.45 pre-compiled binary on Windows XP SP3. Here is the error and backtrace: Winsock error 10038 (ENOTSOCK): Socket operation on non-socket [Condition of type SYSTEM::SIMPLE-OS-ERROR] Restarts: 0: [SOCKET-STATUS] Return from socket-status. 1: [ABORT] Abort 2: [CLOSE-CONNECTION] Close SLIME connection 3: [ABORT] Abort main loop Backtrace: 0: [292] frame binding variables (~ = dynamically): | ~ SWANK::*SWANK-STATE-STACK* <--> NIL 1: [289] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-STEPPING-P* <--> NIL 2: [286] frame binding variables (~ = dynamically): | ~ SWANK::*SLDB-LEVEL* <--> 0 3: [283] frame binding variables (~ = dynamically): | ~ *PACKAGE* <--> #<PACKAGE COMMON-LISP-USER> 4: <1/276> #<COMPILED-FUNCTION SWANK::DEBUG-IN-EMACS> - #<COMPILED-FUNCTION SWANK::INVOKE-SLIME-DEBUGGER-1> 5: <1/274> #<COMPILED-FUNCTION SWANK::INVOKE-SLIME-DEBUGGER-1> - #<COMPILED-FUNCTION SWANK::INVOKE-SLIME-DEBUGGER-1> 6: [273] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 7: <1/269> #<COMPILED-FUNCTION #:|625 630 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-61-3-1|> - #<COMPILED-FUNCTION #:|625 630 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-61-3-1|> 8: <1/264> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2-2-1> 9: <1/261> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2-2-1> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2-2-1> 10: [260] frame binding variables (~ = dynamically): 11: <1/255> #<COMPILED-FUNCTION SWANK::CALL-WITH-BINDINGS> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2-2> 12: <1/252> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2-2> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2-2> 13: [251] handler frame for conditions SWANK::SWANK-ERROR 14: <1/244> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2> - #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION-2> 15: [243] handler frame for conditions SWANK::SWANK-ERROR 16: [237] compiled tagbody frame for #(NIL) 17: [231] frame binding variables (~ = dynamically): | ~ SWANK::*SLIME-INTERRUPTS-ENABLED* <--> NIL 18: [227] frame binding variables (~ = dynamically): | ~ SWANK-BACKEND:*PENDING-SLIME-INTERRUPTS* <--> #<UNBOUND> 19: [224] frame binding variables (~ = dynamically): | ~ SWANK::*EMACS-CONNECTION* <--> NIL 20: <1/219> #<COMPILED-FUNCTION SWANK::CALL-WITH-CONNECTION> [217] frame binding variables (~ = dynamically): | ~ SWANK::*SLIME-INTERRUPTS-ENABLED* <--> #<UNBOUND> 21: <1/211> #<COMPILED-FUNCTION SWANK:INVOKE-SLIME-DEBUGGER> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2-1> 22: <1/209> #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2-1> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2-1> 23: [208] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> NIL 24: <1/204> #<COMPILED-FUNCTION #:|625 630 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-61-3-1|> - #<COMPILED-FUNCTION #:|625 630 (DEFINTERFACE CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-61-3-1|> 25: <1/199> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2> 26: <1/196> #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2> - #<COMPILED-FUNCTION SWANK::SWANK-DEBUGGER-HOOK-2> 27: [195] handler frame for conditions SWANK::INVOKE-DEFAULT-DEBUGGER 28: [189] compiled tagbody frame for #(NIL) 29: <1/183> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> [181] frame binding variables (~ = dynamically): | ~ *DEBUGGER-HOOK* <--> #<COMPILED-FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 30: <1/178> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1 [177] frame binding variables (~ = dynamically): | ~ SYSTEM::*PRIN-STREAM* <--> #<UNBOUND> 31: [174] frame binding variables (~ = dynamically): | ~ *PRINT-READABLY* <--> NIL 32: [171] frame binding variables (~ = dynamically): | ~ *PRINT-ESCAPE* <--> T 33: <1/167> #<SYSTEM-FUNCTION SOCKET-STATUS> 3 [164] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME ABORT :TEST #1=#<COMPILED-FUNCTION SYSTEM::DEFAULT-R.. 34: [161] catch frame for tag #:SIMPLE-RESTART-19728 35: <1/156> #<COMPILED-FUNCTION #:|180 194 (DEFIMPLEMENTATION WAIT-FOR-INPUT (STREAMS &OPTIONAL TIMEOUT) ...)-16-1-1|> - #<COMPILED-FUNCTION #:|180 194 (DEFIMPLEMENTATION WAIT-FOR-INPUT (STREAMS &OPTIONAL.. 36: <1/151> #<COMPILED-FUNCTION SWANK-BACKEND:WAIT-FOR-INPUT> - (#<IO UNBUFFERED SOCKET-STREAM CHARACTER 0.0.0.0:4005> #<IO TERMINAL-STREAM>) 37: <1/146> #<COMPILED-FUNCTION SWANK::MAKE-REPL-INPUT-STREAM-1> - #<COMPILED-FUNCTION SWANK::MAKE-REPL-INPUT-STREAM-1> 38: <1/143> #<COMPILED-FUNCTION #:|84 97 (DEFMETHOD STREAM-READ-CHAR (#) ...)-12-1-1-1|> - #<COMPILED-FUNCTION #:|84 97 (DEFMETHOD STREAM-READ-CHAR (#) ...)-12-1-1-1|> 39: <1/141> #<COMPILED-FUNCTION #:|1004 1008 (DEFINTERFACE CALL-WITH-LOCK-HELD (LOCK FUNCTION) ...)-121-3-1|> - #<COMPILED-FUNCTION #:|1004 1008 (DEFINTERFACE CALL-WITH-LOCK-HELD (LOCK FUNCTION) ...)-121-.. 40: <1/136> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-LOCK-HELD> [134] compiled block frame for STREAM-READ-CHAR 41: <1/129> #<COMPILED-FUNCTION #:|84 97 (DEFMETHOD STREAM-READ-CHAR (#) ...)-12-1-1|> <2/129> #<STANDARD-GENERIC-FUNCTION STREAM-READ-CHAR> - #<SWANK-BACKEND::SLIME-INPUT-STREAM #x19F815AD> 42: [127] frame binding variables (~ = dynamically): | ~ SYSTEM::*READING-STRUCT* <--> NIL 43: [124] frame binding variables (~ = dynamically): | ~ SYSTEM::*READING-ARRAY* <--> NIL 44: [121] frame binding variables (~ = dynamically): | ~ SYSTEM::*BACKQUOTE-LEVEL* <--> #<UNBOUND> 45: [118] frame binding variables (~ = dynamically): | ~ SYSTEM::*READ-REFERENCE-TABLE* <--> #<UNBOUND> 46: [115] frame binding variables (~ = dynamically): | ~ SYSTEM::*READ-PRESERVE-WHITESPACE* <--> #<UNBOUND> 47: [112] frame binding variables (~ = dynamically): | ~ SYSTEM::*READ-RECURSIVE-P* <--> #<UNBOUND> 48: <1/109> #<SYSTEM-FUNCTION READ> [105] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME SWANK::CLOSE-CONNECTION :TEST #1=#<COMPILED-FUNCTION SYSTEM::DE.. 49: [102] catch frame for tag #:SIMPLE-RESTART-23703 50: <1/98> #<COMPILED-FUNCTION SWANK::SIMPLE-REPL> [98] frame binding variables (~ = dynamically): | ~ *STANDARD-INPUT* <--> #<IO SYNONYM-STREAM *TERMINAL-IO*> 51: [94] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> (#S(RESTART :NAME ABORT :TEST #<COMPILED-FUNCTION SYSTEM::DEFAULT-RESTART-TEST> :INVOKE-TAG NIL :INVOKE-FUNCTION #.. 52: [91] catch frame for tag #:SIMPLE-RESTART-23688 53: <1/87> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS-2> 54: <1/85> #<COMPILED-FUNCTION #:|102 110 (DEFIMPLEMENTATION CALL-WITH-USER-BREAK-HANDLER (HANDLER FUNCTION) ...)-7-1-1-2|> - #<COMPILED-FUNCTION #:|102 110 (DEFIMPLEMENTATION CALL-WITH-USER-BREAK-HANDLER.. 55: [84] handler frame for conditions SYSTEM::SIMPLE-INTERRUPT-CONDITION 56: <1/76> #<COMPILED-FUNCTION #:|102 110 (DEFIMPLEMENTATION CALL-WITH-USER-BREAK-HANDLER (HANDLER FUNCTION) ...)-7-1-1|> - #<COMPILED-FUNCTION #:|102 110 (DEFIMPLEMENTATION CALL-WITH-USER-BREAK-HANDLER (.. 57: <1/71> #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-USER-BREAK-HANDLER> [69] unwind-protect frame 58: <1/65> #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS> - #<COMPILED-FUNCTION SWANK::SIMPLE-SERVE-REQUESTS> 59: <1/62> #<COMPILED-FUNCTION SWANK::SERVE-REQUESTS> - #<SWANK::CONNECTION #x19F8146D> 60: [59] unwind-protect frame 61: <1/55> #<COMPILED-FUNCTION SWANK::SERVE-CONNECTION> - #<COMPILED-FUNCTION SWANK::SETUP-SERVER-SERVE> 62: <1/50> #<COMPILED-FUNCTION SWANK::SETUP-SERVER-SERVE> - NIL 63: <1/44> #<COMPILED-FUNCTION SWANK::SETUP-SERVER> - #<COMPILED-FUNCTION SWANK:CREATE-SERVER> 64: <1/38> #<COMPILED-FUNCTION SWANK:CREATE-SERVER> - #<COMPILED-FUNCTION SWANK:CREATE-SERVER> 65: [33] EVAL frame for form (SWANK:CREATE-SERVER) 66: <1/30> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT> 2 [28] frame binding variables (~ = dynamically): | ~ SYSTEM::*ACTIVE-RESTARTS* <--> NIL 67: [25] compiled tagbody frame for #(NIL) 68: [20] catch frame for tag DEBUG

3 3