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

[slime-devel] Saving *slime-scratch*
by Nikodemus Siivola 11 Oct '08

11 Oct '08

The attached patch associates *slime-scratch* with a file if you name one as "slime-scratch-file". I've been running slime with this a while, and rather like it. Something like this was talked about a while ago, and dropped because of what looked like an ideologinal objection to scratch-buffers in my mind. Is the consensus still against this? Cheers, -- Nikodemus Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.784 diff -u -r1.784 slime.el --- slime.el 16 Apr 2007 14:42:33 -0000 1.784 +++ slime.el 27 Apr 2007 13:26:17 -0000 @@ -4570,10 +4570,15 @@ (set-keymap-parent map lisp-mode-map) map)) +(defvar slime-scratch-file nil) + (defun slime-scratch-buffer () "Return the scratch buffer, create it if necessary." (or (get-buffer "*slime-scratch*") - (with-current-buffer (get-buffer-create "*slime-scratch*") + (with-current-buffer (if (not slime-scratch-file) + (get-buffer-create "*slime-scratch*") + (find-file slime-scratch-file)) + (rename-buffer "*slime-scratch*") (lisp-mode) (use-local-map slime-scratch-mode-map) (slime-mode t)

4 5

[slime-devel] Mercurial
by Helmut Eller 08 Aug '08

08 Aug '08

What do people think of switching from CVS to Mercurial[*] ? Helmut. [*] http://www.selenic.com/mercurial/

20 50

[slime-devel] fancy inspector problems
by Knut Olav Bøhmer 18 Jun '08

18 Jun '08

When I inspect the object from lispworks it works ------------------ CL-USER> (inspect <http://www.lispworks.com/reference/HyperSpec/Body/f_inspec.htm> k2::*current-hushe* ) #<HUSHE-CLIENT:HUSHE-CLIENT 118742AB> is a HUSHE-CLIENT:HUSHE-CLIENT TIMESTAMP 3398596745 TIMEOUT 1200 I/O-PACKAGE #<The HUSHE-CLIENT package, 135/256 internal, 101/256 external> LOCK #<MP:LOCK "Hushe-client serializer" Unlocked NIL 0 118742DF> TCPCLIENT-STREAM #<COMM:SOCKET-STREAM 11875E87> HOST "localhost" PORT 11116 ERROR-FORMAT "GENERIC-TCP-CLIENT ERROR: ~a" ---------------- But when I inspect with slime I get this: (note I use all contib mocules, and <http://www.lispworks.com/reference/HyperSpec/Body/a_and.htm> it is latest cvs) ---------------------- The slot #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> is missing from #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> (of class <http://www.lispworks.com/reference/HyperSpec/Body/t_class.htm> #<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB>), when reading the value. [Condition of type CONDITIONS::SLOT-MISSING-ERROR] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [ABORT] Quit process. Backtrace: 0: CONDITIONS::CONDITIONS-ERROR (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> CONDITIONS::SLOT-MISSING-ERROR (:NAME #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> :INSTANCE #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> :CLASS #<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> :OPERATION ..)) 1: ERROR (CONDITIONS::SLOT-MISSING-ERROR &REST (:NAME #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> :INSTANCE #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> :CLASS #<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> :OPERATION SLOT-BOUNDP <http://www.lispworks.com/reference/HyperSpec/Body/f_slt_bo.htm> ..)) 2: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SLOT-MISSING <http://www.lispworks.com/reference/HyperSpec/Body/f_slt_mi.htm> (T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>)) (#<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F> SLOT-BOUNDP <http://www.lispworks.com/reference/HyperSpec/Body/f_slt_bo.htm> &OPTIONAL NIL <http://www.lispworks.com/reference/HyperSpec/Body/a_nil.htm>) 3: CLOS::GENERIC-FUNCTION-NON-DISCRIMINATOR NIL 4: CLOS::SLOT-BOUNDP-MISSING (#(1571 (GENERIC-TCPCLIENT::TCPCLIENT-STREAM GENERIC-TCPCLIENT::HOST GENERIC-TCPCLIENT::PORT GENERIC-TCPCLIENT::TIMEOUT GENERIC-TCPCLIENT::I/O-PACKAGE GENERIC-TCPCLIENT::ERROR-FORMAT HUSHE-CLIENT::TIMESTAMP HUSHE-CLIENT::LOCK) NIL <http://www.lispworks.com/reference/HyperSpec/Body/a_nil.htm> ..)) 5: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SWANK:INSPECT-SLOT-FOR-EMACS (T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>)) (#<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>) 6: (SUBFUNCTION 1 (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ge.htm>))) (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<STANDARD-CLASS <http://www.lispworks.com/reference/HyperSpec/Body/t_std_cl.htm> HUSHE-CLIENT:HUSHE-CLIENT 10A27AEB> #<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<STANDARD-EFFECTIVE-SLOT-DEFINITION GENERIC-TCPCLIENT::ERROR-FORMAT 1121052F>)) 7: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SWANK::ALL-SLOTS-FOR-INSPECTOR (STANDARD-OBJECT <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ob.htm> T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>)) (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> :DONT-KNOW) 8: CLOS::CACHE-MISS-FUNCTION (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 9: (SUBFUNCTION 1 (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ge.htm>))) (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 10: (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> SWANK-BACKEND:INSPECT-FOR-EMACS (STANDARD-OBJECT <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ob.htm> SWANK::FANCY-INSPECTOR)) (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>) 11: CLOS::CACHE-MISS-FUNCTION (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 12: (SUBFUNCTION 1 (METHOD <http://www.lispworks.com/reference/HyperSpec/Body/t_method.htm> CLOS::UPDATE-DISCRIMINATOR-CODE (STANDARD-GENERIC-FUNCTION <http://www.lispworks.com/reference/HyperSpec/Body/t_std_ge.htm>))) (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm> &REST (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> #<SWANK::FANCY-INSPECTOR 1188D817>)) 13: SWANK::INSPECT-OBJECT (#<HUSHE-CLIENT:HUSHE-CLIENT 11A11963> &OPTIONAL "<(INSPECTOR *DEFAULT-INSPECTOR*)>") 14: (SUBFUNCTION 1 SWANK:INIT-INSPECTOR) NIL 15: SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (#<Closure 1 subfunction of SWANK:INIT-INSPECTOR>) 16: SWANK::CALL-WITH-BUFFER-SYNTAX (#<Closure 1 subfunction of SWANK:INIT-INSPECTOR>) 17: SYSTEM::%INVOKE (:INVISIBLEP T <http://www.lispworks.com/reference/HyperSpec/Body/a_t.htm>) 18: SYSTEM::%EVAL ((SWANK:INIT-INSPECTOR "k2::*current-hushe*")) 19: EVAL ((SWANK:INIT-INSPECTOR "k2::*current-hushe*")) 20: (SUBFUNCTION 1 SWANK::EVAL-FOR-EMACS) NIL 21: (SUBFUNCTION 1 (TOP-LEVEL-FORM 52)) (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #<Closure 1 subfunction of SWANK::EVAL-FOR-EMACS>) 22: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #<Closure 1 subfunction of SWANK::EVAL-FOR-EMACS>) 23: FUNCALL (SWANK::EVAL-FOR-EMACS &REST ((SWANK:INIT-INSPECTOR "k2::*current-hushe*") "COMMON-LISP-USER" 13)) 24: SWANK::READ-FROM-EMACS NIL 25: (SUBFUNCTION 1 SWANK::HANDLE-REQUEST) NIL 26: (SUBFUNCTION 1 (TOP-LEVEL-FORM 52)) (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> 1 subfunction of SWANK::HANDLE-REQUEST>) 27: SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (#</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> SWANK:SWANK-DEBUGGER-HOOK> #</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> 1 subfunction of SWANK::HANDLE-REQUEST>) 28: (SUBFUNCTION 1 SWANK::CALL-WITH-CONNECTION) NIL 29: SWANK::CALL-WITH-REDIRECTED-IO (#<SWANK::CONNECTION 1192C3E7> #<Closure 1 subfunction of SWANK::CALL-WITH-CONNECTION>) 30: SWANK::CALL-WITH-CONNECTION (#<SWANK::CONNECTION 1192C3E7> #</Function/ <http://www.lispworks.com/reference/HyperSpec/Body/a_fn.htm> 1 subfunction of SWANK::HANDLE-REQUEST>) 31: SWANK::HANDLE-REQUEST (#<SWANK::CONNECTION 1192C3E7>) 32: SWANK::REPL-LOOP (#<SWANK::CONNECTION 1192C3E7>) 33: (SUBFUNCTION 1 SWANK::SPAWN-REPL-THREAD) NIL 34: SWANK::CALL-WITH-BINDINGS (NIL <http://www.lispworks.com/reference/HyperSpec/Body/a_nil.htm> #<Closure 1 subfunction of SWANK::SPAWN-REPL-THREAD>) 35: (SUBFUNCTION 1 SWANK::SPAWN-REPL-THREAD) NIL 36: (SUBFUNCTION MP::PROCESS-SG-FUNCTION MP::INITIALIZE-PROCESS-STACK) (:DONT-KNOW) 37: SYSTEM::%%FIRST-CALL-TO-STACK NIL 38: SYSTEM::%%FIRST-CALL-TO-STACK NIL -- Free Software Consultant Cell: +47 - 47 34 40 08 Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09 Addr: Slemdalsveien 70, PB 1 Vinderen, 0319 Oslo <http://www.freecode.no/>

4 11

[slime-devel] How to correct auto completion error of filenames
by Tsunhin John Wong 02 Apr '08

02 Apr '08

Hello SLIME users, I am using SLIME CVS version 2007-09-27 in the package "Ready Lisp" that contain Aquamacs for OSX The auto completion of this SLIME always add one more SPACE in front of the ending double quote, as shown below (load "/Users/Myname/Documents/Lisp/Mylispfile.lisp ") Where should I look up in the SLIME files to correct this problem? (to remove the extra space) Please point me to the file and functions Thanks a lot! Regards, John

3 2

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

28 Mar '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1337 slime/ChangeLog:1.1341 --- slime/ChangeLog:1.1337 Wed Mar 26 10:59:30 2008 +++ slime/ChangeLog Thu Mar 27 16:59:45 2008 @@ -1,3 +1,8 @@ +2008-03-27 Martin Simmons <martin(a)lispworks.com> + + * swank-lispworks.lisp (map-error-database): Make mapping work for + LispWorks 5.1 too. + 2008-03-26 Tobias C. Rittweiler <tcr(a)freebits.de> On SBCL, @@ -25,6 +30,24 @@ (def-slime-test locally-bound-debugger-hook): New test case; tests that a locally-bound *DEBUGGER-HOOK* is adhered, and not skipped. +2008-03-26 Helmut Eller <heller(a)common-lisp.net> + + By default, don't ask if SLIME should be started. + + * slime.el (slime-auto-connect): New variable. + (slime-auto-connect): New function. + (slime-connection): Use it. + +2008-03-24 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-check-version): New function. Make the + prompt fit in a single line. + + * swank-loader.lisp (load-swank): Call swank::before-init. + + * swank.lisp (before-init): New function. + (init): Renamed from setup. + 2008-03-24 Tobias C. Rittweiler <tcr(a)freebits.de> * HACKING: Updated due to broken links.

1 0

[slime-devel] lispworks 5.1 conditions
by Peter Denno 28 Mar '08

28 Mar '08

Hi, I just tried lispworks 5.1/linux (released today) with Slime CVS HEAD. I'm not a Slime hacker, but it appears that the argument to swank-backend::lispworks-severity in this version of LW can be a dotted list of the form: (#<CONDITIONS::SIMPLE-STYLE-WARNING 200BF8A7> . 15798) Thus the etypecase in lispworks-severity can fail. So, a naive patch: (defun lispworks-severity (condition) (cond ((not condition) :warning) (t (etypecase #+:lispworks5.1 (car condition) #-lispworks5.1 condition (error :error) (style-warning :warning) (warning :warning))))) I don't doubt that this should be taken care of elsewhere, before the call to lispworks-severity. The list structure seems to have consequences elsewhere. e.g warnings now look like this: -+ Warnings (1) `-- (*ZIPPY* assumed special in SETQ . 15798) -- Best regards, - Peter

2 2

[slime-devel] sporadic EOF on start up
by Walter C. Pelissero 27 Mar '08

27 Mar '08

I've been experiencing this since ever but I've always postponed any investigation to when I had more time. Having noticed that I never got around to do anything about it, I thought I might as well involve the SLIME community. About one out of five times I start slime, I get: ;; Swank started at port: 49576. 49576 * ;; swank:close-connection: End-of-File on #<Stream for descriptor 9> Through the inferior lisp buffer I can verify that the Lisp is not dead; I can interact without problems. It seems like it's just SLIME that fails to notice that. If I do another M-x slime, Emacs asks me if I want to create another inferior lisp. Answering "no" the Lisp session is rescued and everything proceeds as normal. Has anyone else seen something like that? Just for the record, I'm using CMUCL 19d on FreeBSD. -- walter pelissero http://www.pelissero.de

2 2

[slime-devel] Slime/ClozureCL issues
by Vyacheslav Akhmechet 27 Mar '08

27 Mar '08

Hello, I'm using Slime on PPC OS X with ClozureCL and Carbon Emacs 22. I've been running into the following issue for a long time with different versions of above software, and it finally itches enough to ask. When I encounter errors with ClozureCL, I normally just press "q" to leave the debugger. This works with Slime and other Lisp implementations, however on the above setup it occassionally kills the connection with Lisp. It doesn't happen for all errors, though. I am wondering if Slime picks the wrong restart, or if there is another issue. Thanks!

3 3

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

27 Mar '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1336 slime/ChangeLog:1.1337 --- slime/ChangeLog:1.1336 Mon Mar 24 02:22:19 2008 +++ slime/ChangeLog Wed Mar 26 10:59:30 2008 @@ -1,3 +1,30 @@ +2008-03-26 Tobias C. Rittweiler <tcr(a)freebits.de> + + On SBCL, + + (block outta + (let ((*debugger-hook* #'(lambda (c hook) + (declare (ignore hook)) + (return-from outta 42)))) + (error "FOO"))) + + would just silently skip over the *DEBUGGER-HOOK*, and pop right + into SLDB to handle the error. Fix that. + + * swank-sbcl (make-invoke-debugger-hook): New function; returns a + hook for SB-EXT:*INVOKE-DEBUGGER-HOOK* that checks for the + presence of *DEBUGGER-HOOK*, and calls that if available. + (install-debugger-globally): Use it. + (call-with-debugger-hook): Ditto. + + (getpid): Declaim return type explicitly, to make SBCL shut up about + being unable to optimize %SAP-ALIEN in ENABLE-SIGIO-ON-FD. + + * slime.el (def-slime-test break): Test additionally that BREAK + turns into SLDB even when *DEBUGGER-HOOK* is locally bound. + (def-slime-test locally-bound-debugger-hook): New test case; tests + that a locally-bound *DEBUGGER-HOOK* is adhered, and not skipped. + 2008-03-24 Tobias C. Rittweiler <tcr(a)freebits.de> * HACKING: Updated due to broken links.

1 0

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

25 Mar '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1335 slime/ChangeLog:1.1336 --- slime/ChangeLog:1.1335 Sun Mar 23 19:20:43 2008 +++ slime/ChangeLog Mon Mar 24 02:22:19 2008 @@ -85,13 +85,13 @@ * slime.el (slime-repl-return-behaviour): Deleted. Rebind the key if you don't like what the command does. - + 2008-03-14 Tobias C. Rittweiler <tcr(a)freebits.de> * swank.lisp (classify-symbol, symbol-classification->string): Add classification of symbols denoting type specifier, and denoting constants. - + 2008-03-13 Tobias C. Rittweiler <tcr(a)freebits.de> * slime.el (slime-eval-macroexpand): Indent expansion. @@ -101,7 +101,7 @@ * slime.el (slime-edit-definition-cont): If no definition could be found, print also the package name in the error message where the definition was tried to be found in. - + 2008-03-13 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-region-for-defun-function): Deleted. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.101 slime/contrib/ChangeLog:1.102 --- slime/contrib/ChangeLog:1.101 Tue Mar 18 08:21:28 2008 +++ slime/contrib/ChangeLog Mon Mar 24 02:22:20 2008 @@ -1,3 +1,8 @@ +2008-03-24 Helmut Eller <heller(a)common-lisp.net> + + * swank-kawa.scm: Save stacktraces with locals on throw events. + This is quite costly but makes debugging easier. + 2008-03-14 Tobias C. Rittweiler <tcr(a)freebits.de> * swank-fancy-inspector.lisp (add-slots-for-inspector): Remove @@ -16,7 +21,7 @@ * slime-fuzzy.lisp (slime-fuzzy-insert-completion-choice): (slime-fuzzy-fill-completions-buffer): Adapted to API change. - + 2008-03-14 Tobias C. Rittweiler <tcr(a)freebits.de> * swank-fancy-inspector.lisp (make-symbols-listing :classification):

1 0