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

[slime-devel] [patch] ECL defmethod arglist fix
by Andy Hefner 13 Nov '09

13 Nov '09

Currently on ECL swank::arglist dies when given a generic function (as happens when producing the arglist for a defmethod). swank-ecl.lisp uses si:compiled-function-name for mapping functions to their names, but this doesn't work for generic functions. The attached patch adds a check for generic functions, to use clos:generic-function-name instead, and tightens the test conditions in two branches of 'arglist' that err when a generic-function passes by.

2 2

[slime-devel] start slime mit-scheme failed
by Darren Hoo 12 Nov '09

12 Nov '09

I downloaded slime 20091111 snapshot and slime clisp works perfectly but when I followed the instructions in swank-mit-scheme.scm and I try to start slime with M-x mit-scheme,I got: -------------------------- Unbound variable: :swank-asdf [unbound-variable] Restarts: 0: [use-value] Specify a value to use instead of :swank-asdf. 1: [store-value] Define :swank-asdf to a given value. 2: [abort] Return to SLDB level 1. 3: [use-value] Specify a value to use instead of swank:swank-require. 4: [store-value] Define swank:swank-require to a given value. 5: [abort] Return to SLIME top-level. --more-- Backtrace: 0: ;Unknown (methodless) #[stack-frame 14] 1: :swank-asdf 2: :swank-asdf 3: (eval (cons* (car sexp) socket (cdr sexp)) swank-env) 4: (set! result (eval (cons* (car sexp) socket (cdr sexp)) swank-env)) 5: (with-simple-restart (quote abort) (format #f "Return to SLDB level ~a." level) (lambda () (dispatch (read-packet socket) socket level))) 6: ;unknown compiled code 7: ;unknown compiled code 8: ;unknown compiled code --more-- -------------------------- The version of mit-scheme I used is 7.7.90+20090107-1,which is supposed to work with slime as described in swank-mit-scheme.scm.I can verify that The file /usr/share/emacs/site-lisp/slime/contrib/slime-asdf.el has been successfully loaded what could possibly be wrong? I'm quite a newbie on scheme. I would appreciated that someone can help me out.

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 07 Nov '09

07 Nov '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1912 slime/ChangeLog:1.1914 --- slime/ChangeLog:1.1912 Thu Nov 5 11:43:05 2009 +++ slime/ChangeLog Fri Nov 6 12:59:22 2009 @@ -1,3 +1,12 @@ +2009-11-06 Stas Boukarev <stassats(a)gmail.com> + + * swank-ecl.lisp (grovel-docstring-for-arglist): ECL's arglists + for macros include macro name at the first place, unlike arglists + for functions. cdr arglists only for macros and special operators. + Reported by Andy Hefner. + (find-source-location): Missing comma before error message formatting. + Patch by Andy Hefner. + 2009-11-05 Tobias C. Rittweiler <tcr(a)freebits.de> Make C-c C-c operate on region if mark is active (and Transient Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.271 slime/contrib/ChangeLog:1.273 --- slime/contrib/ChangeLog:1.271 Thu Nov 5 12:33:41 2009 +++ slime/contrib/ChangeLog Fri Nov 6 21:04:56 2009 @@ -1,10 +1,23 @@ +2009-11-07 Stas Boukarev <stassats(a)gmail.com> + + * slime-package-fu.el (slime-find-package-definition-regexp): Go + one sexp backward to the defpackage beginning. + +2009-11-06 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime-autodoc.el (slime-arglist): Adapted to new code. + (slime-retrieve-arglist): New. + + * slime-c-p-c.el (slime-get-arglist): Deleted. + (slime-complete-symbol*-fancy-bit): Use `slime-retrieve-arglist'. + 2009-11-05 Tobias C. Rittweiler <tcr(a)freebits.de> * swank-arglists.lisp (print-decoded-arglist): Fix printing of &any and &key parameters. (test-print-arglist): Slightly adapted. - * slime-autodoc ([test] autodoc.1): Slightly adapted. + * slime-autodoc.el ([test] autodoc.1): Slightly adapted. 2009-11-02 Tobias C. Rittweiler <tcr(a)freebits.de>

1 0

[slime-devel] weird completion error on REPL
by quasi 06 Nov '09

06 Nov '09

Hey, I updated my CVS to latest to SLIME 2009-11-06 and I get a weird error while using completion on the REPL. here are the steps I have a package defined like this: (defpackage :tripr (:use :cl :hunchentoot :html-template) (:export :webserver-start)) I load it with asdf and it loads. But as soon as I try to expand (tripr: on the REPL I get the following error. This does not happen when I try it on another package like cl-ppcre or hunchentoot. This error happened on both SBCL 1.0.29 x86-64 and allegro 8.1 on a MBP running Snow Leopard. thanks, quasi Abhijit Rao Mumbai, India Backtrace: The assertion (LISTP SWANK::FORM) failed. [Condition of type SIMPLE-ERROR] Restarts: 0: [CONTINUE] Retry assertion. 1: [ABORT] Return to SLIME's top level. 2: [ABORT] Exit debugger, returning to top level. Backtrace: 0: (SB-KERNEL:ASSERT-ERROR (LISTP SWANK::FORM) NIL NIL)[:EXTERNAL] Locals: SB-DEBUG::ARG-0 = 3 SB-DEBUG::ARG-1 = (LISTP SWANK::FORM) SB-DEBUG::ARG-2 = NIL SB-DEBUG::ARG-3 = NIL 1: ((LABELS SWANK::GROVEL-FORM) TRIPR:WEBSERVER-START NIL) Locals: SB-DEBUG::ARG-0 = TRIPR:WEBSERVER-START SB-DEBUG::ARG-1 = NIL 2: ((LABELS SWANK::GROVEL-FORM) (TRIPR:WEBSERVER-START) NIL) Locals: SB-DEBUG::ARG-0 = (TRIPR:WEBSERVER-START) SB-DEBUG::ARG-1 = NIL 3: ((LAMBDA ())) [No Locals] 4: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA #) {10029AD019}>) Locals: SB-DEBUG::ARG-0 = NIL SB-DEBUG::ARG-1 = #<CLOSURE (LAMBDA ()) {10029AD019}> 5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:ARGLIST-FOR-ECHO-AREA '("tripr:WEBSERVER-START")) #<NULL-LEXENV>) Locals: SB-DEBUG::ARG-0 = (SWANK:ARGLIST-FOR-ECHO-AREA '("tripr:WEBSERVER-START")) SB-DEBUG::ARG-1 = #<NULL-LEXENV> 6: (SWANK::EVAL-FOR-EMACS (SWANK:ARGLIST-FOR-ECHO-AREA '("tripr:WEBSERVER-START")) "COMMON-LISP-USER" 19) Locals: SB-DEBUG::ARG-0 = (SWANK:ARGLIST-FOR-ECHO-AREA '("tripr:WEBSERVER-START")) SB-DEBUG::ARG-1 = "COMMON-LISP-USER" SB-DEBUG::ARG-2 = 19 7: (SWANK::PROCESS-REQUESTS T) 8: ((LAMBDA ())) 9: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {10029AA379}>) 10: (SWANK::CALL-WITH-BINDINGS ..) 11: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {10033D49C1}> #<CLOSURE (LAMBDA #) {10029AA379}>) 12: (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {10033D49C1}> T) 13: ((LABELS SWANK-BACKEND::RUN) 12) 14: (SB-IMPL::SUB-SUB-SERVE-EVENT NIL NIL) 15: (SB-IMPL::SUB-SERVE-EVENT NIL NIL NIL) 16: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL) 17: (SB-IMPL::REFILL-INPUT-BUFFER #<SB-SYS:FD-STREAM for "standard input" {1003324C41}>) 18: (SB-IMPL::INPUT-CHAR/UTF-8 #<SB-SYS:FD-STREAM for "standard input" {1003324C41}> NIL #:EOF-OBJECT) 19: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {1003324C41}> NIL #:EOF-OBJECT #<unused argument>) 20: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {1000158331}> NIL #:EOF-OBJECT #<unused argument>) 21: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {1000158331}> NIL (NIL) T) 22: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {1000158331}> NIL (NIL) NIL) 23: (READ #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {1000158331}> NIL (NIL) NIL) 24: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {1000158331}> #<unavailable argument>) 25: (SB-IMPL::REPL-FUN NIL) 26: ((LAMBDA ())) 27: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {1002E306F9}>) 28: (SB-IMPL::TOPLEVEL-REPL NIL) 29: (SB-IMPL::TOPLEVEL-INIT) 30: ((LABELS SB-IMPL::RESTART-LISP))

3 3

[slime-devel] [patch] ECL source definition not found message fix
by Andy Hefner 06 Nov '09

06 Nov '09

The attached patch fixes a missing comma inside a backquote when generating the "Source definition of ~S not found" message for find-source-location.

2 1

[slime-devel] [patch] ECL arglist fix
by Andy Hefner 06 Nov '09

06 Nov '09

The swank ECL backend discards the first argument in arglists obtained via grovel-docstring-for-arglist due to a CDR applied to the return value. This behavior dates back to the original version of the function in revision 1.32 and I can't figure a good reason for it (unless ECL is inconsistent in its documentation format). I first encountered this behavior upon observing that slime's arglist for POSITION-IF omitted the test argument. Attached is the trivial fix.

2 1

[slime-devel] Daily ChangeLog diff
by Helmut Eller 06 Nov '09

06 Nov '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1911 slime/ChangeLog:1.1912 --- slime/ChangeLog:1.1911 Tue Nov 3 13:22:58 2009 +++ slime/ChangeLog Thu Nov 5 11:43:05 2009 @@ -1,3 +1,11 @@ +2009-11-05 Tobias C. Rittweiler <tcr(a)freebits.de> + + Make C-c C-c operate on region if mark is active (and Transient + Mark mode is enabled.) + + * slime.el (slime-compile-defun): Operate on region if + transient-mark-mode is active. + 2009-11-03 Helmut Eller <heller(a)common-lisp.net> Ask gdb for source lines of foreign functions. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.270 slime/contrib/ChangeLog:1.271 --- slime/contrib/ChangeLog:1.270 Tue Nov 3 17:14:19 2009 +++ slime/contrib/ChangeLog Thu Nov 5 12:33:41 2009 @@ -1,3 +1,11 @@ +2009-11-05 Tobias C. Rittweiler <tcr(a)freebits.de> + + * swank-arglists.lisp (print-decoded-arglist): Fix printing of + &any and &key parameters. + (test-print-arglist): Slightly adapted. + + * slime-autodoc ([test] autodoc.1): Slightly adapted. + 2009-11-02 Tobias C. Rittweiler <tcr(a)freebits.de> * swank-arglists.lisp (do-decoded-arglists): Remove L-V-T.

1 0

[slime-devel] SLIME Warnings on CCL and SBCL
by Adlai Chandrasekhar 05 Nov '09

05 Nov '09

I get the following warnings when starting or ,restart-inferior-lisp-ing SLIME, both on CCL and SBCL: WARNING: Test failed: (&KEY (#'F)) => "(&key function)" Expected: "(&key ((function f)))" WARNING: Test failed: (EVAL-WHEN (&ANY :COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) &BODY BODY) => "(eval-when (&any compile-toplevel load-toplevel execute) &body body)" Expected: "(eval-when (&any :compile-toplevel :load-toplevel :execute) &body body)" My SLIME version is 2009-11-02, fetched from CVS through clbuild. - Adlai

2 1

[slime-devel] CMUCL 20a startup issue
by Derrell Piper 04 Nov '09

04 Nov '09

I promise to crawl back into my cave shortly... CMUCL 20a is barfing in swank-arglists when starting up SLIME from fasls. It loads fine on the initial compile pass but when it's just loading the swank-arglists fasl, it gets confused somewhere in here (contrib/swank-arglists.lisp): (in-package :swank) ... (eval-when (:compile-toplevel :load-toplevel :execute) (defparameter +lambda-list-keywords+ '(&provided &required &optional &rest &key &any))) (defmacro do-decoded-arglist (decoded-arglist &body clauses) (assert (loop for clause in clauses thereis (member (car clause) +lambda-list-keywords+))) (flet ((parse-clauses (clauses) (let* ((size (load-time-value (length +lambda-list-keywords+))) At first, I assumed this was some sort of bug in CMUCL having to do with package interning and (load-time-value...) although now that I've read the HyperSpec on (load-time-value...) that's less clear. The CLHS says that (l-t-v...) is evaluated in a "null lexical environment" which the glossary says is, "the lexical environment which has no bindings." And since the current package is bound to *package* what CMUCL is doing would seem to be correct. As an experiment, I tried adding explicit package qualification to all of the references to +lambda-list-keywords+ and CMUCL still signals the same error. In other words, CMUCL goes out of it's way to lose the package specifier in (l-t-v...). And yet this code is working in SBCL and Clozure... Can anyone explain what's broken where any maybe suggest a workaround or a fix? I'll be happy to go report this to CMUCL if need be. Thanks! Error in KERNEL::UNBOUND-SYMBOL-ERROR-HANDLER: the variable SWANK:: +LAMBDA-LIST-KEYWORDS+ is unbound. [Condition of type UNBOUND-VARIABLE] Restarts: 0: [CONTINUE] Return NIL from load of #P"/Users/ddp/.slime/fasl/ 2009-11-03/cmu-20a_(20a_uni...". 1: [ABORT] Return to SLIME's top level. 2: [ABORT] Return to Top-Level. Backtrace: 0: ("Load Time Value of (LENGTH +LAMBDA-LIST-KEYWORDS+)")[:TOP-LEVEL] 1: (LISP::FOP-FUNCALL) 2: (LISP::LOAD-GROUP #<Stream for file "/Users/ddp/.slime/fasl/ 2009-11-03/cmu-20a_(20a_unicode)-darwin-x86/contrib/swank- arglists.sse2f">) 3: (LISP::FASLOAD #<Stream for file "/Users/ddp/.slime/fasl/ 2009-11-03/cmu-20a_(20a_unicode)-darwin-x86/contrib/swank- arglists.sse2f">) 4: (LISP::INTERNAL-LOAD #P"/Users/ddp/.slime/fasl/2009-11-03/ cmu-20a_(20a_unicode)-darwin-x86/contrib/swank-arglists.sse2f" ..) 5: (LISP::INTERNAL-LOAD #P"/Users/ddp/.slime/fasl/2009-11-03/ cmu-20a_(20a_unicode)-darwin-x86/contrib/swank-arglists.sse2f" ..) 6: (LOAD #P"/Users/ddp/.slime/fasl/2009-11-03/cmu-20a_(20a_unicode)- darwin-x86/contrib/swank-arglists.sse2f" :VERBOSE NIL :PRINT ...) 7: (REQUIRE :SWANK-ARGLISTS #P"/Users/ddp/.slime/fasl/2009-11-03/ cmu-20a_(20a_unicode)-darwin-x86/contrib/swank-arglists.sse2f") 8: (SWANK:SWANK-REQUIRE (:SWANK-ASDF :SWANK-PACKAGE-FU :SWANK- FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS) NIL) 9: (SWANK::EVAL-FOR-EMACS (SWANK:SWANK-REQUIRE '(:SWANK-ASDF :SWANK- PACKAGE-FU :SWANK-FUZZY :SWANK-FANCY-INSPECTOR :SWANK-ARGLISTS)) "COMMON-LISP-USER" 2) 10: (SWANK::PROCESS-REQUESTS T) 11: ("DEFUN HANDLE-REQUESTS") 12: ("DEFINTERFACE CALL-WITH-DEBUGGER-HOOK" #<Function SWANK:SWANK- DEBUGGER-HOOK {485FF171}> #<Closure Over Function "DEFUN HANDLE- REQUESTS" {489407B9}>) 13: (SWANK::CALL-WITH-BINDINGS NIL #<Closure Over Function "DEFUN CALL-WITH-CONNECTION" {48940819}>) 14: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {488D454D}> #<Closure Over Function "DEFUN HANDLE-REQUESTS" {489407B9}>) 15: (SWANK::HANDLE-REQUESTS #<SWANK::CONNECTION {488D454D}> T) 16: (SWANK::INVOKE-OR-QUEUE-INTERRUPT #<Closure Over Function "DEFUN PROCESS-IO-INTERRUPT" {48940251}>) 17: (SWANK::PROCESS-IO-INTERRUPT #<SWANK::CONNECTION {488D454D}>) 18: (SWANK-BACKEND::SIGIO-HANDLER #<unused-arg> #<unused-arg> #<unused-arg>) 19: ("OnLispStack+#x2F [#xB568] /usr/local/bin/lisp") 20: ("funcall3+#x32 [#xB362] /usr/local/bin/lisp") 21: ("interrupt_handle_now+#x105 [#x7145] /usr/local/bin/lisp") 22: ("_sigtramp+#x2B [#x90ABFB9B] /usr/lib/libSystem.B.dylib") 23: ("Foreign function call land") 24: (LISP::SUB-SERVE-EVENT 1 0) 25: (SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL) 26: (LISP::DO-INPUT #<Stream for Standard Input>) 27: ("PRECOMPILE-EF-SLOT ISO8859-1" #<Stream for Standard Input> NIL (LISP::*EOF*)) 28: (LISP::SYNONYM-IN #<Synonym Stream to SYSTEM:*STDIN*> NIL (LISP::*EOF*)) 29: (LISP::TWO-WAY-IN #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (LISP::*EOF*)) 30: (READ-CHAR #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (LISP::*EOF*) NIL) 31: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) T) 32: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) NIL) 33: (LISP::READ-PRESERVING-WHITESPACE-INTERNAL 4 #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) ...)[:EXTERNAL] 34: (LISP::READ-INTERNAL #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) NIL) 35: (READ #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (:EOF) NIL) 36: (LISP::%TOP-LEVEL) 37: ((LABELS LISP::RESTART-LISP SAVE-LISP))

4 5

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

04 Nov '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1907 slime/ChangeLog:1.1911 --- slime/ChangeLog:1.1907 Mon Nov 2 11:17:48 2009 +++ slime/ChangeLog Tue Nov 3 13:22:58 2009 @@ -1,3 +1,32 @@ +2009-11-03 Helmut Eller <heller(a)common-lisp.net> + + Ask gdb for source lines of foreign functions. + + * swank-cmucl.lisp (frame-source-location): Handle foreign + frames with gdb. + (frame-ip): Handle bogus frames (on x86) + (disassemble-frame): Use gdb for foreign frames. + (foreign-frame-p, foreign-frame-source-location): New functions. + (gdb-command, gdb-exec, parse-gdb-line-info, read-word) + (whitespacep, with-temporary-file, call/temporary-file): New + helpers. + +2009-11-03 Stas Boukarev <stassats(a)gmail.com> + + * slime.el (sldb-setup): Do (set-syntax-table lisp-mode-syntax-table) + otherwise functions used by autodoc do not work properly. + +2009-11-03 Stas Boukarev <stassats(a)gmail.com> + + * slime.el (sldb-backward-frame): If the point is at the end of + the buffer, there is no property, handle this case. + + * swank.lisp (collect-notes): LOAD returns generalized boolean, + not just boolean, but make-compilation-result accepts only booleans + for its second argument. + + Both bugs reported by Derrell Piper. + 2009-11-02 Tobias C. Rittweiler <tcr(a)freebits.de> * slime.el (slime-end-of-symbol): Make sure not to move on #'foo. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.269 slime/contrib/ChangeLog:1.270 --- slime/contrib/ChangeLog:1.269 Mon Nov 2 11:24:45 2009 +++ slime/contrib/ChangeLog Tue Nov 3 17:14:19 2009 @@ -1,5 +1,9 @@ 2009-11-02 Tobias C. Rittweiler <tcr(a)freebits.de> + * swank-arglists.lisp (do-decoded-arglists): Remove L-V-T. + +2009-11-02 Tobias C. Rittweiler <tcr(a)freebits.de> + * slime-parse.el (slime-make-form-spec-from-string): Break out of the loop if we're at unbalanced parentheses. (slime-compare-character-syntax): New helper.

1 0