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

[slime-devel] patch swank-allegro.lisp
by Madhu 28 Sep '08

28 Sep '08

diff --git a/swank-allegro.lisp b/swank-allegro.lisp index 1ef352d..7f58a33 100644 --- a/swank-allegro.lisp +++ b/swank-allegro.lisp @@ -597,7 +597,7 @@ (ecase type ((:unsigned-word :unsigned-byte :unsigned-natural :unsigned-long :unsigned-half-long - :unsigned-3byte) + :unsigned-3byte :func) (label-value-line name (inspect::component-ref-v object access type))) ((:lisp :value) (label-value-line name (inspect::component-ref object access)))

2 1

[slime-devel] Installation guide in spanish
by Felip Alàez Nadal 27 Sep '08

27 Sep '08

Hello: I've written a little installation guide for slime on Windows XP in spanish. Maybe It could be useful for somebody. It's at my blog http://lispinspain.blogspot.com/ Bye. -- Felip Alàez Nadal

1 0

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

27 Sep '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1543 slime/ChangeLog:1.1545 --- slime/ChangeLog:1.1543 Wed Sep 24 05:14:13 2008 +++ slime/ChangeLog Fri Sep 26 19:14:10 2008 @@ -1,3 +1,16 @@ +2008-09-27 Tobias C. Rittweiler <tcr(a)freebits.de> + + Improve ECL's arglist support somewhat. + + * swank-ecl.lisp (grovel-docstring-for-arglist): New function. + (arglist): Use it. Now also try to find an arglist for special + operators, and macros. + +2008-09-26 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (slime-cycle-connections): Do not make the new + connection buffer-local if we're currently in a REPL buffer. + 2008-09-24 Knut Olav Bøhmer <knut-olav.bohmer(a)telenor.com> * slime.el (slime-cycle-connections): New command.

1 0

[slime-devel] slime-region-for-defun-function
by Madhu 25 Sep '08

25 Sep '08

* 2008-03-13 Helmut Eller <heller(a)common-lisp.net> | * slime.el (slime-region-for-defun-function): Deleted. | (slime-region-for-defun-at-point): Use beginning-of-defun | and not beginning-of-sexp. This breaks multiple use cases when evaluating s-expressions from lisp file buffers. `beginning-of-sexp' is the right thing to use here. What motivated you to change this to `beginning-of-defun'? -- Madhu

3 6

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

25 Sep '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1540 slime/ChangeLog:1.1543 --- slime/ChangeLog:1.1540 Tue Sep 23 00:57:51 2008 +++ slime/ChangeLog Wed Sep 24 05:14:13 2008 @@ -1,3 +1,17 @@ +2008-09-24 Knut Olav Bøhmer <knut-olav.bohmer(a)telenor.com> + + * slime.el (slime-cycle-connections): New command. + +2008-09-24 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-prefix-map): New keymap. + (slime-define-key): Use it. Also drop unused :inferior arg. + (slime-inspector-mode-map): Bind C-c to slime-prefix-map. + (slime-define-both-key-bindings): New function. Factor of + slime-init-keymaps. + (slime-init-keymaps): Use it. + (slime-control-modified-char): Deleted. + 2008-09-23 Douglas Crosher <dcrosher(a)common-lisp.net> * swank-scl.lisp: update for Scieneer CL 1.3.8.

1 0

[slime-devel] add C-c C-z kind binding to inspector
by Gary King 24 Sep '08

24 Sep '08

The attached patch does two things. Regarding the name change of the inspector's buffer. Wouldn't it be more consistent if all the SLIME buffers used the same name template. E.g., *slime-repl*, *slime-inspector*, *slime-events*, etc. Currently, the case format used is all over the place. 2008-09-20 Gary King <gwking(a)metabang.com> * slime.el (slime-inspector-buffer, slime-inspector-mode-map): switch slime-inspector's buffer name to lowercase. Add binding to C-c C-z to switch to the output frame (usually the REPL) -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM

2 1

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

24 Sep '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1539 slime/ChangeLog:1.1540 --- slime/ChangeLog:1.1539 Mon Sep 22 18:56:18 2008 +++ slime/ChangeLog Tue Sep 23 00:57:51 2008 @@ -1,3 +1,11 @@ +2008-09-23 Douglas Crosher <dcrosher(a)common-lisp.net> + + * swank-scl.lisp: update for Scieneer CL 1.3.8. + + * swank.lisp (ed-in-emacs): customize for the SCL. + + * swank.lisp (signal-interrupt): fix typo. + 2008-09-22 Nikodemus Siivola <nikodemus(a)random-state.net> * swank.lisp (guess-package): Return NIL if string designator is

1 0

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

23 Sep '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1536 slime/ChangeLog:1.1539 --- slime/ChangeLog:1.1536 Sun Sep 21 07:18:00 2008 +++ slime/ChangeLog Mon Sep 22 18:56:18 2008 @@ -1,3 +1,25 @@ +2008-09-22 Nikodemus Siivola <nikodemus(a)random-state.net> + + * swank.lisp (guess-package): Return NIL if string designator is + NIL: makes files without IN-PACKAGE forms more *BREAK-ON-SIGNALS* + friendly. + +2008-09-22 Helmut Eller <heller(a)common-lisp.net> + + * swank-sbcl.lisp (wait-for-input): Implement this in backend, + since read-char-no-hang doesn't work in fd-handlers. + (install-sigint-handler): Go through invoke-interruption and + with-interrupts to support nested interrupts. + + * slime.el (slime-lisp-implementations): Mention :env keyword + in docstring. + +2008-09-21 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-repl-input-end-mark): Deleted. It was always at + the end of buffer. Use point-max instead. + (slime-repl-eol): Removed. The usual end-of-line does the same. + 2008-09-21 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-eol-conversion-fixup): Return 0 (not nil) for

1 0

[slime-devel] printing large amounts of text at once breaks with SBCL/:fd-handler
by Bart Botta 22 Sep '08

22 Sep '08

Current CVS slime breaks when a large amount of text is printed to the REPL when using :fd-handler communication style on SBCL (tested on 1.0.19 and 1.0.20). For example: (loop for i below 1000 do (format t "~a ......................................................................~%" i)) stops partway through the loop, pressing enter makes it print a bit more, entering a form causes it to evaluate that form and print a bit more of the original output. backtrace from entering (break) while REPL was stopped in middle of output: Restarts: 0: [CONTINUE] Return from BREAK. 1: [RETRY] Retry SLIME REPL evaluation request. 2: [ABORT] Abort sending output to Emacs. 3: [RETRY] Retry SLIME REPL evaluation request. 4: [ABORT] Return to SLIME's top level. 5: [ABORT] Exit debugger, returning to top level. Backtrace: 0: (BREAK "break") 1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (BREAK) #<NULL-LEXENV>) 2: (SWANK::EVAL-REGION "(break)\n") 3: ((LAMBDA ())) 4: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {B1BED2D}>) 5: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA #) {B1BEC15.. 6: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {B1BEBFD}>) 7: (SWANK::REPL-EVAL "(break)\n") 8: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(break)\n") #<NULL-LEXENV>) 9: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(break)\n") "COMMON-LISP-USER" 74) 10: (SWANK::PROCESS-REQUESTS T NIL) 11: (SB-IMPL::SUB-SUB-SERVE-EVENT NIL NIL) 12: (SB-IMPL::SUB-SERVE-EVENT NIL NIL NIL) 13: (SB-SYS:WAIT-UNTIL-FD-USABLE 6 :INPUT NIL) 14: (SB-IMPL::REFILL-INPUT-BUFFER #<SB-SYS:FD-STREAM for "a socket" {AC5A119}>) 15: (SB-IMPL::INPUT-CHAR/UTF-8 #<SB-SYS:FD-STREAM for "a socket" {AC5A119}> NIL :EOF) 16: (PEEK-CHAR NIL #<SB-SYS:FD-STREAM for "a socket" {AC5A119}> NIL NIL #<unused argument>) 17: ((LAMBDA (SWANK-BACKEND::STREAMS &OPTIONAL SWANK-BACKEND::TIMEOUT)) (#<SB-SYS:FD-STREAM for "a socke.. 18: (SWANK::WAIT-FOR-EVENT/EVENT-LOOP (:EMACS-PONG 13) NIL) 19: (SWANK::WAIT-FOR-EVENT (:EMACS-PONG 13) NIL) 20: (SWANK::SEND-USER-OUTPUT ..) 21: ((LAMBDA ())) 22: ((LAMBDA ())) 23: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]508)) 24: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..) 25: ((LAMBDA (SWANK-BACKEND::LOCK FUNCTION)) #S(SB-THREAD:MUTEX :NAME "buffer write lock" :%OWNER #<SB-T.. 26: ((SB-PCL::FAST-METHOD STREAM-FINISH-OUTPUT (SWANK-BACKEND::SLIME-OUTPUT-STREAM)) #(3 NIL 2 NIL 5 NIL.. 27: ((LAMBDA ())) 28: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]508)) 29: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK ..) 30: ((LAMBDA (SWANK-BACKEND::LOCK FUNCTION)) #S(SB-THREAD:MUTEX :NAME "buffer write lock" :%OWNER #<SB-T.. 31: ((SB-PCL::FAST-METHOD STREAM-WRITE-STRING (SWANK-BACKEND::SLIME-OUTPUT-STREAM T)) ..) 32: (WRITE-STRING " ......................................................................" #<SWANK-BACK.. 33: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A6EC099}> (" .............. 34: (SB-FORMAT::%FORMAT #<SWANK-BACKEND::SLIME-OUTPUT-STREAM {A6EC099}> "~a .............................. 35: (FORMAT T "~a ......................................................................~%")[:EXTERNAL] 36: ((LAMBDA ())) 37: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOOP FOR I BELOW 1000 DO ...) #<NULL-LEXENV>) 38: (SWANK::EVAL-REGION "(loop for i below 1000 do (format t \"~a ........................................ 39: ((LAMBDA ())) 40: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA #) {AFDEC95}>) 41: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA #) {AFDEB7D.. 42: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {AFDEB65}>) 43: (SWANK::REPL-EVAL "(loop for i below 1000 do (format t \"~a .......................................... 44: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(loop for i below 1000 do (format t \"~a ......... 45: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(loop for i below 1000 do (format t \"~a ................ 46: (SWANK::PROCESS-REQUESTS T NIL) 47: ((LAMBDA ())) 48: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (.. 49: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {AC5AD59}> #<CLOSURE (LAMBDA #) {AFCBF35}>) 50: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {AC5AD59}> #<CLOSURE (LAMBDA #) {AFCBF25}>) 51: (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {AC5AD59}> T NIL) 52: (SB-IMPL::SUB-SUB-SERVE-EVENT NIL NIL) 53: (SB-IMPL::SUB-SERVE-EVENT NIL NIL NIL) 54: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL) 55: (SB-IMPL::REFILL-INPUT-BUFFER #<SB-SYS:FD-STREAM for "standard input" {A6E57F1}>) 56: (SB-IMPL::INPUT-CHAR/UTF-8 #<SB-SYS:FD-STREAM for "standard input" {A6E57F1}> NIL #:EOF-OBJECT) 57: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {A6E57F1}> NIL #:EOF-OBJECT #<unused argument>) 58: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {90DA579}> NIL #:EOF-OBJECT #<unused argument>) 59: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {90DA579}> NIL (NIL) T) 60: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {90DA579}> NIL (NIL) NIL) 61: (READ #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {90DA579}> NIL (NIL) NIL) 62: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {90DA579}> #<unavailable argume.. 63: (SB-IMPL::REPL-FUN NIL) 64: (SB-IMPL::REPL-FUN NIL)[:EXTERNAL] 65: ((LAMBDA ())) 66: ((LAMBDA ()))[:EXTERNAL] 67: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {A6E8AD5}>) 68: (SB-IMPL::TOPLEVEL-REPL NIL) 69: (SB-IMPL::TOPLEVEL-INIT) 70: ((LABELS SB-IMPL::RESTART-LISP))

2 1

[slime-devel] Truncated error messages in the debugger
by Zach 22 Sep '08

22 Sep '08

This is a minor inconvenience since I can inspect the condition and find out what is really going on, but, just thought I would point it out. From cvs slime (a little out of date). Anyone else get this behavior? (defclass test-class () ((a :initarg :a) (b :initarg :b)) ) (defun func1 (lst) (declare (type list lst)) lst ) (defmethod print-object ((obj test-class) str) (format str "#<This is an objects special PRINT-OBJECT form ~A ~A>" (slot-value obj 'a) (slot-value obj 'b) )) ;; This causes an error (func1 expects a list) (func1 (make-array 20 :initial-contents (loop for i below 20 collect (make-instance 'test-class :a 1 :b 2) ))) In the debugger I get this (the error message here has lost the "is not of type LIST" part): The value #(#<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> ..) [Condition of type TYPE-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {1425AA89}>) Backtrace: 0: (FUNC1 #(#<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> #<This is an objects special PRINT-OBJECT form 1 2> ...))[:EXTERNAL] 1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (FUNC1 (MAKE-ARRAY 20 :INITIAL-CONTENTS (LOOP FOR I BELOW 20 COLLECT ...))) #<NULL-LEXENV>) 2: (SWANK::EVAL-REGION "(func1 (make-array 20 :initial-contents (loop for i below 20 collect (make-instance 'test-class :a 1 :b 2)))) ")

2 1