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

[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

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

03 Nov '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1896 slime/ChangeLog:1.1898 --- slime/ChangeLog:1.1896 Wed Oct 28 16:52:20 2009 +++ slime/ChangeLog Fri Oct 30 15:39:34 2009 @@ -1,3 +1,16 @@ +2009-10-30 Stas Boukarev <stassats(a)gmail.com> + + * swank-loader.lisp (setup): Use EXT:PROBE-DIRECTORY on Clisp, + because PROBE-FILE doesn't want to work on directories. + Patch by Dirk Sondermann. + +2009-10-30 Helmut Eller <heller(a)common-lisp.net> + + * swank-openmcl.lisp: Removed. 1.4 is out so no longer needed. + * swank-ccl.lisp: Update accordingly. + + * test-all.sh: Removed. Not used in ages. + 2009-10-28 Helmut Eller <heller(a)common-lisp.net> Simpler modeline code. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.261 slime/contrib/ChangeLog:1.262 --- slime/contrib/ChangeLog:1.261 Wed Oct 21 15:38:49 2009 +++ slime/contrib/ChangeLog Fri Oct 30 19:06:26 2009 @@ -1,3 +1,13 @@ +2009-10-31 Tobias C. Rittweiler <tcr(a)freebits.de> + + `M-x slime-visit-sbcl-bug' will open a browser to visit SBCL's bug + tracker at Launchpad that describes the bug number at + point (#nnnnnn). + + * slime-sbcl-exts.el (slime-visit-sbcl-bug): New. + (slime-read-sbcl-bug): New. + (slime-sbcl-bug-at-point): New. + 2009-10-21 Stas Boukarev <stassats(a)gmail.com> * slime-asdf.el (slime-browse-system): Open the parent directory of

2 2

[slime-devel] *sysdep-files* as var
by Terje Norderhaug 03 Nov '09

03 Nov '09

I propose *sysdep-files* is changed from a parameter to a var, so it can be bound before loading swank-loader.lisp. I need this for an enhanced swank loader that supports a lisp implementation not covered by the current *sysdep-files* options, but I believe it could be generally useful for those tinkering with swank. diff -u slime-2009-11-03/swank-loader.lisp slime-2009-11-03/swank- loader-patched.lisp --- slime-2009-11-03/swank-loader.lisp 2009-11-01 01:15:02.000000000 -0700 +++ slime-2009-11-03/swank-loader-patched.lisp 2009-11-03 11:12:21.000000000 -0800 @@ -32,7 +32,7 @@ :defaults (or *load-pathname* *default-pathname- defaults*)) "The directory where to look for the source.") -(defparameter *sysdep-files* +(defvar *sysdep-files* #+cmu '(swank-source-path-parser swank-source-file-cache swank- cmucl) #+scl '(swank-source-path-parser swank-source-file-cache swank-scl) #+sbcl '(swank-source-path-parser swank-source-file-cache -- Terje Norderhaug

1 0

[slime-devel] slime.el byte-compile notes (emacs 23.1)
by Derrell Piper 03 Nov '09

03 Nov '09

I'm using a byte-compiled slime.el. Just FYI, here's your current compilation notes for emacs 23.1: Compiling file /Users/ddp/.emacs.d/slime/slime.el at Tue Nov 3 09:50:45 2009 Entering directory `/Users/ddp/.emacs.d/slime/' In slime-complete-maybe-restore-window-configuration: slime.el:3633:20:Warning: `last-command-char' is an obsolete variable (as of Emacs at least 19.34); use `last-command-event' instead. In slime-next-line/not-add-newlines: slime.el:4698:10:Warning: `next-line' used from Lisp code That command is designed for interactive use only In sldb-recenter-region: slime.el:5709:27:Warning: `next-line' used from Lisp code That command is designed for interactive use only In slime-add-local-hook: slime.el:8555:11:Warning: `make-local-hook' is an obsolete function (as of Emacs 21.1); not necessary any more. Compiling no file at Tue Nov 3 09:50:59 2009

1 0

[slime-devel] backtrace --more-- broken
by Derrell Piper 03 Nov '09

03 Nov '09

The backtrace "--more--" tag no longer works. If you "n" off the bottom of a long BT, the "--more--" tag goes away but nothing happens. If you try to "p" back to one of the existing frames, you get this in the minibuffer and the cursor remains on the blank line: slime-property-bounds: Assertion failed: (get-text-property (point) prop) Derrell

2 1

[slime-devel] compile-file-if-needed fails if fasl already exists (Clozure)
by Derrell Piper 03 Nov '09

03 Nov '09

If I try to compile and load a file that's already compiled in Clozure, say doing this twice: (swank:compile-file-if-needed "/Users/ddp/src/lisp/test.lisp" t) On the second time around, swank signals an error in swank:collect- notes because Clozure returns a pathname of the fasl file instead of T. Clozure's behavior seems rational. So since the underlying defstruct specifies :type boolean for successp, here's how I fixed this: fluffy% diff -n swank.lisp.~1.671.~ swank.lisp d2786 2 a2787 2 (let ((successp (if successp t nil))) (make-compilation-result (reverse notes) successp seconds))))) (defun collect-notes (function) (let ((notes '())) (multiple-value-bind (successp seconds) (handler-bind ((compiler-condition (lambda (c) (push (make-compiler-note c) notes)))) (measure-time-interval function)) (let ((successp (if successp t nil))) (make-compilation-result (reverse notes) successp seconds)))))

2 1

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

03 Nov '09

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1905 slime/ChangeLog:1.1907 --- slime/ChangeLog:1.1905 Mon Nov 2 02:47:02 2009 +++ slime/ChangeLog Mon Nov 2 11:17:48 2009 @@ -1,3 +1,14 @@ +2009-11-02 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (slime-end-of-symbol): Make sure not to move on #'foo. + ([test] sexp-at-point.1): New test case. + +2009-11-02 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (without-interrupts): Removed. No longer used. + * swank-backend.lisp (call-without-interrupts): Removed. + Update backends accoringly. + 2009-11-02 Helmut Eller <heller(a)common-lisp.net> CCL's lap-functions don't have source-notes but the name often Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.267 slime/contrib/ChangeLog:1.269 --- slime/contrib/ChangeLog:1.267 Sat Oct 31 18:41:04 2009 +++ slime/contrib/ChangeLog Mon Nov 2 11:24:45 2009 @@ -1,3 +1,19 @@ +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. + (slime-parse-form-upto-point): Use it. + (slime-incomplete-form-at-point): Revert change. + ([test] form-upto-point.1): New test case. + +2009-11-02 Stas Boukarev <stassats(a)gmail.com> + + * slime-parse.el (slime-incomplete-form-at-point): Concatenate " )" + not just ")", because the form's last char may be \, and the parenthesis + will be escaped. + That fixes a bug reported by Ariel Badichi. + 2009-10-31 Tobias C. Rittweiler <tcr(a)freebits.de> * slime-fontifying-fu.el (slime-search-suppressed-forms-internal):

1 0

[slime-devel] Emacs may freeze
by Ariel Badichi 02 Nov '09

02 Nov '09

Hello, With the new commit from 2009-10-31, I can reproducibly cause GNU Emacs 22.2.1 to lock-up. The commit is huge, and I didn't have the time to further localize the problem. To see the problem, start Emacs/SLIME and in the SLIME scratch buffer type the following: (char= #\ Ariel

3 2