slime-devel May 2008

slime-devel@common-lisp.net

23 participants
29 discussions

[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] slime-c-p-c
by Madhu 08 Sep '08

08 Sep '08

Re: slime-complete-symbol* : I noticed that slime-c-p-c does not work correctly but can mangle text after a completion is chosen , [I'm appending a test case to the end of this message.] I'm afraid I'm to blame for this, I think: the patch I submitted claiming to fix XEmacs behaviour (on 2007-08-04) and which was committed on 2007-09-04 is incorrect [ 1. the analysis is not restricted to XEmacs, and 2. Emacs choose-completion does not work right unless the text in the buffer is a proper prefix of the completions displayed. I cannot see any lowest-common-denominator solution for this.] I would suggest reverting the patch. The downside is that you get back the original behaviour, which mangles the text BEFORE the completion is chosen: If you type "m-v" and hit TAB the function will delete your text and leave you with "m" -- because "m" is emacs' completed-prefix matching both "machine-version" and "multiple-value*"s. [This may or may not be acceptable, indeed whether it is what you want would depend on which buffer you are in, and what symbol you are trying to complete] Apologies for the incomplete patch and the earlier noise over the [unrelated yet related] unambiguous-prefix issue (from 06).. -- Madhu ;;; PS: Here is a test case transcript, and also what to expect on the ;;; suggest fix : ;;; ;;; 1. First we recreate the situation in acl, where there are multiple ;;; completions for "l-p-t". ;;; CL-USER> '(locale-print-time logical-pathname-translations logical-pathname-translations-database-pathnames) (LOCALE-PRINT-TIME LOGICAL-PATHNAME-TRANSLATIONS LOGICAL-PATHNAME-TRANSLATIONS-DATABASE-PATHNAMES) ;;; ;;; 2. slime-c-p-c-unambiguous-prefix-p is set to nil ;;; BEFORE: CL-USER> l-p-t ;;; ^^^ hit TAB, then choose the logical-pathname-translations ;;; completion in the *Completions* buffer ;;; AFTER: The completed form looks like: CL-USER> (l-plogical-pathname-translations ;;; ;;; 3. Next try after setting slime-c-p-c-unambiguous-prefix-p nil ;;; BEFORE: CL-USER> l-p-t ;;; ^^^ hit TAB, then choose the logical-pathname-translations ;;; completion in the *Completions* buffer ;;; AFTER: CL-USER> (logical-pathname-translationsp-t ;;; ;;; 4.WITH 2007-09-04 PATCH REVERTED: ;;; BEFORE: CL-USER> l-p-t ;;; ^^^ hit TAB, then choose the logical-pathname-translations ;;; completion in the *Completions* buffer ;;; AFTER: CL-USER> (lo ^^^ note that the text you input is gone. ;;; but at least choosing a completion won't mangle the text in your ;;; buffer

1 1

[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] Output lost after disconnect reconnect
by Gábor Melis 29 Jul '08

29 Jul '08

After a disconnect, reconnect long running worker threads that were spawn for instance by C-x C-e in a lisp buffer send their output to the void. Detailed process to reproduce: 1. start an sbcl 2. (require 'asdf) (asdf:oos 'asdf:load-op 'swank) (setq swank:*globally-redirect-io* t) (setq swank:*global-debugger* t) (setf swank:*use-dedicated-output-stream* nil) (swank:create-server :dont-close t :port 4007) 3. connect from slime 4. from a buffer eval (loop (sleep 5) (print 'hello *trace-output*) (force-output *trace-output*)) 5. disconnect [At this point output should be going to the terminal where sbcl was started which is the case when the above snippet is wrapped in (sb-thread:make-thread (lambda () ...))). Instead it goes to nowhere.] 6. slime-connect again 7. observe that nobody says hello anymore The attached patch aims to fix this by: * swank.lisp (maybe-call-with-io-redirection): don't CALL-WITH-REDIRECTED-IO if *GLOBALLY-REDIRECT-IO*. Fixes lost output after disconnect, reconnect. Cheers, Gábor Melis

2 5

[slime-devel] slime-read-interactive-args
by Harald Hanche-Olsen 05 Jul '08

05 Jul '08

Quoth the docstring of slime-read-interactive-args: - If the prefix-arg is `-', prompt for one of the registered lisps. There is just one small problem with this: There is no way (that I know of) to get a prefix arg on an emacs running under a tty. How about changing the condition to include any negative argument? This bites me just often enough to be annoying. - Harald

3 4

[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] Loading slime and swank with clisp doesn't work.
by Patrick Pippen 08 Jun '08

08 Jun '08

Excuse the the line noise... But I can't seem to get clisp 2.44.1 to load swank. my .clisprc: (load #p"/usr/local/clisp/asdf/") (push #p"/usr/local/clisp/systems/" asdf:*central-registry*) #-:asdf-install (asdf:operate 'asdf:load-op :asdf-install) #-:mk-defsystem (load "/usr/local/clisp/defsystem.lisp") (mk:add-registry-location "/usr/local/clisp/systems/") (load "/usr/local/clisp/systems/cl-ppcre-1.3.2/load.lisp") $clisp i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.44.1 (2008-02-23) <http://clisp.cons.org/> Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2008 Type :h and hit Enter for context help. ;; Loading file /usr/home/phax/.clisprc ... ;; Loading file /usr/local/clisp/asdf/asdf.lisp ... ;; Loaded file /usr/local/clisp/asdf/asdf.lisp ; loading system definition from /usr/local/clisp/systems/asdf-install.asd into #<PACKAGE ASDF0> ;; Loading file /usr/local/clisp/systems/asdf-install.asd ... ; registering #<SYSTEM ASDF-INSTALL #x203DECC5> as ASDF-INSTALL ;; Loaded file /usr/local/clisp/systems/asdf-install.asd ;; Loading file /usr/local/clisp/asdf-install/asdf-install/defpackage.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/defpackage.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/split-sequence.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/split-sequence.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/port.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/port.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/variables.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/variables.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/conditions.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/conditions.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/installer.fas ... WARNING: The generic function #<STANDARD-GENERIC-FUNCTION ASDF:FIND-COMPONENT> is being modified, but has already been called. ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/installer.fas ;; Loading file /usr/local/clisp/asdf-install/asdf-install/deprecated.fas ... ;; Loaded file /usr/local/clisp/asdf-install/asdf-install/deprecated.fas ;;; ASDF-Install version 0.6.10 0 errors, 0 warnings ;; Loading file /usr/local/clisp/defsystem.lisp ... ;; Loaded file /usr/local/clisp/defsystem.lisp ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/load.lisp ... ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/packages.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/packages.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/specials.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/specials.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/util.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/util.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/errors.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/errors.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/lexer.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/lexer.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/parser.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/parser.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/regex-class.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/regex-class.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/convert.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/convert.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/optimize.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/optimize.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/closures.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/closures.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/repetition-closures.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/repetition-closures.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/scanner.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/scanner.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/api.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/api.fas ;; Loading file /usr/local/clisp/systems/cl-ppcre-1.3.2/ppcre-tests.fas ... ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/ppcre-tests.fas 0 errors, 0 warnings ;; Loaded file /usr/local/clisp/systems/cl-ppcre-1.3.2/load.lisp ;; Loaded file /usr/home/phax/.clisprc [1]> (load "/usr/local/slime/slime/swank-loader.lisp") ;; Loading file /usr/local/slime/slime/swank-loader.lisp ... ;; Loading file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/swank-backend.fas ... ;; Loaded file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/swank-backend.fas ;; Loading file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/xref.fas ... ;; Loaded file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/xref.fas ;; Loading file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/metering.fas ... ;; Loaded file /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/metering.fas ;; Compiling file /usr/local/slime/slime/swank-clisp.lisp ... The following functions were used but not defined: SWANK-BACKEND::SLDB-BACKTRACE 0 errors, 0 warnings ;; ;; Error while loading: /usr/home/phax/.slime/fasl/2008-02-10/clisp-2.44.1-unix-pc386/swank-clisp.fas ;; Condition: INTERN("FRAME-UP-1"): #<PACKAGE SYSTEM> is locked ;; Aborting. ;; [2]> -- you must know the ledge of wise and dome to understand your culture of freedom! http://pxpippen.blogspot.com/ http://groups.google.com/group/lispstl Powerfull Allah

3 3

[slime-devel] Temporary maximum debug for compiling defuns
by Zach Beane 07 Jun '08

07 Jun '08

I don't want to run my whole system with (DEBUG 3), but sometimes I want to compile an individual function with (DEBUG 3) to e.g. get more precise source locations in the debugger. The following is a patch that introduces this to slime, with an implementation for SBCL: if slime-compile-defun is given a prefix argument, it passes a request to the backend that the defun be compiled with maximum debug. The option is ignored on other backends. Zach Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.913 diff -u -r1.913 slime.el --- slime.el 24 Feb 2008 16:50:48 -0000 1.913 +++ slime.el 3 Apr 2008 15:16:40 -0000 @@ -3821,6 +3821,9 @@ ;;;; Compilation and the creation of compiler-note annotations +(defvar slime-compile-with-maximum-debug nil + "When non-nil compile defuns with maximum debug optimization.") + (defvar slime-highlight-compiler-notes t "*When non-nil annotate buffers with compilation notes etc.") @@ -3881,10 +3884,11 @@ (slime-rcurry #'slime-compilation-finished (current-buffer))) (message "Compiling %s..." file))) -(defun slime-compile-defun () +(defun slime-compile-defun (&optional maximum-debug-p) "Compile the current toplevel form." - (interactive) - (apply #'slime-compile-region (slime-region-for-defun-at-point))) + (interactive "P") + (let ((slime-compile-with-maximum-debug maximum-debug-p)) + (apply #'slime-compile-region (slime-region-for-defun-at-point)))) (defun slime-compile-region (start end) "Compile the region." @@ -3898,7 +3902,8 @@ ,string ,(buffer-name) ,start-offset - ,(if (buffer-file-name) (file-name-directory (buffer-file-name)))) + ,(if (buffer-file-name) (file-name-directory (buffer-file-name))) + ',slime-compile-with-maximum-debug) (slime-make-compilation-finished-continuation (current-buffer)))) (defun slime-note-count-string (severity count &optional suppress-if-zero) Index: swank-abcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-abcl.lisp,v retrieving revision 1.48 diff -u -r1.48 swank-abcl.lisp --- swank-abcl.lisp 22 Feb 2008 14:38:39 -0000 1.48 +++ swank-abcl.lisp 3 Apr 2008 15:16:40 -0000 @@ -341,8 +341,9 @@ (when (and load-p (not fail)) (load fn))))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (let ((jvm::*resignal-compiler-warnings* t) (*abcl-signaled-conditions* nil)) (handler-bind ((warning #'handle-compiler-warning)) Index: swank-allegro.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-allegro.lisp,v retrieving revision 1.101 diff -u -r1.101 swank-allegro.lisp --- swank-allegro.lisp 9 Feb 2008 18:47:05 -0000 1.101 +++ swank-allegro.lisp 3 Apr 2008 15:16:40 -0000 @@ -314,7 +314,9 @@ (when binary-filename (delete-file binary-filename)))))) -(defimplementation swank-compile-string (string &key buffer position directory) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore debug)) ;; We store the source buffer in excl::*source-pathname* as a string ;; of the form <buffername>;<start-offset>. Quite ugly encoding, but ;; the fasl file is corrupted if we use some other datatype. Index: swank-backend.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-backend.lisp,v retrieving revision 1.129 diff -u -r1.129 swank-backend.lisp --- swank-backend.lisp 9 Feb 2008 18:47:05 -0000 1.129 +++ swank-backend.lisp 3 Apr 2008 15:16:41 -0000 @@ -333,7 +333,7 @@ (declare (ignore ignore)) `(call-with-compilation-hooks (lambda () (progn ,@body)))) -(definterface swank-compile-string (string &key buffer position directory) +(definterface swank-compile-string (string &key buffer position directory debug) "Compile source from STRING. During compilation, compiler conditions must be trapped and resignalled as COMPILER-CONDITIONs. @@ -344,7 +344,11 @@ If DIRECTORY is specified it may be used by certain implementations to rebind *DEFAULT-PATHNAME-DEFAULTS* which may improve the recording of -source information.") +source information. + +If DEBUG is supplied, it may be used by certain implementations to +compile with maximum debugging information. +") (definterface swank-compile-file (filename load-p external-format) "Compile FILENAME signalling COMPILE-CONDITIONs. Index: swank-clisp.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-clisp.lisp,v retrieving revision 1.68 diff -u -r1.68 swank-clisp.lisp --- swank-clisp.lisp 22 Feb 2008 14:11:52 -0000 1.68 +++ swank-clisp.lisp 3 Apr 2008 15:16:41 -0000 @@ -573,8 +573,9 @@ (load fasl-file)) nil)))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-offset* position)) Index: swank-cmucl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-cmucl.lisp,v retrieving revision 1.178 diff -u -r1.178 swank-cmucl.lisp --- swank-cmucl.lisp 9 Feb 2008 18:47:05 -0000 1.178 +++ swank-cmucl.lisp 3 Apr 2008 15:16:41 -0000 @@ -347,8 +347,9 @@ (when load-p (load output-file))) (values output-file warnings-p failure-p))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-start-position* position) Index: swank-corman.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-corman.lisp,v retrieving revision 1.15 diff -u -r1.15 swank-corman.lisp --- swank-corman.lisp 9 Feb 2008 18:47:05 -0000 1.15 +++ swank-corman.lisp 3 Apr 2008 15:16:41 -0000 @@ -373,8 +373,9 @@ (when load-p (load (compile-file-pathname *compile-filename*)))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-position* position) Index: swank-ecl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-ecl.lisp,v retrieving revision 1.14 diff -u -r1.14 swank-ecl.lisp --- swank-ecl.lisp 9 Feb 2008 18:47:05 -0000 1.14 +++ swank-ecl.lisp 3 Apr 2008 15:16:41 -0000 @@ -129,8 +129,9 @@ (compile-file *compile-filename*) (when load-p (unless fail (load fn))))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-start-position* position) Index: swank-lispworks.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-lispworks.lisp,v retrieving revision 1.97 diff -u -r1.97 swank-lispworks.lisp --- swank-lispworks.lisp 10 Feb 2008 08:32:04 -0000 1.97 +++ swank-lispworks.lisp 3 Apr 2008 15:16:41 -0000 @@ -558,8 +558,9 @@ nil))) htab)) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (assert buffer) (assert position) (let* ((location (list :emacs-buffer buffer position string)) Index: swank-openmcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-openmcl.lisp,v retrieving revision 1.124 diff -u -r1.124 swank-openmcl.lisp --- swank-openmcl.lisp 9 Feb 2008 18:47:05 -0000 1.124 +++ swank-openmcl.lisp 3 Apr 2008 15:16:41 -0000 @@ -426,8 +426,9 @@ (mapcan 'who-specializes (ccl::%class-direct-subclasses class))) :test 'equal)) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-offset* position) Index: swank-sbcl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-sbcl.lisp,v retrieving revision 1.191 diff -u -r1.191 swank-sbcl.lisp --- swank-sbcl.lisp 9 Feb 2008 18:47:05 -0000 1.191 +++ swank-sbcl.lisp 3 Apr 2008 15:16:41 -0000 @@ -435,11 +435,15 @@ "Return a temporary file name to compile strings into." (concatenate 'string (tmpnam nil) ".lisp")) -(defimplementation swank-compile-string (string &key buffer position directory) +(defimplementation swank-compile-string (string &key buffer position directory + debug) (let ((*buffer-name* buffer) (*buffer-offset* position) (*buffer-substring* string) - (filename (temp-file-name))) + (filename (temp-file-name)) + (old-min-debug (assoc 'debug (sb-ext:restrict-compiler-policy)))) + (when debug + (sb-ext:restrict-compiler-policy 'debug 3)) (flet ((compile-it (fn) (with-compilation-hooks () (with-compilation-unit @@ -455,6 +459,7 @@ (compile-it #'load) (load (compile-it #'identity))) (ignore-errors + (sb-ext:restrict-compiler-policy 'debug (or old-min-debug 0)) (delete-file filename) (delete-file (compile-file-pathname filename))))))) Index: swank-scl.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank-scl.lisp,v retrieving revision 1.18 diff -u -r1.18 swank-scl.lisp --- swank-scl.lisp 10 Feb 2008 08:32:04 -0000 1.18 +++ swank-scl.lisp 3 Apr 2008 15:16:41 -0000 @@ -391,8 +391,9 @@ (when load-p (load output-file))) (values output-file warnings-p failure-p))))) -(defimplementation swank-compile-string (string &key buffer position directory) - (declare (ignore directory)) +(defimplementation swank-compile-string (string &key buffer position directory + debug) + (declare (ignore directory debug)) (with-compilation-hooks () (let ((*buffer-name* buffer) (*buffer-start-position* position) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.537 diff -u -r1.537 swank.lisp --- swank.lisp 25 Feb 2008 17:17:56 -0000 1.537 +++ swank.lisp 3 Apr 2008 15:16:41 -0000 @@ -2222,7 +2222,7 @@ (or (guess-external-format filename) :default))))))) -(defslimefun compile-string-for-emacs (string buffer position directory) +(defslimefun compile-string-for-emacs (string buffer position directory debug) "Compile STRING (exerpted from BUFFER at POSITION). Record compiler notes signalled as `compiler-condition's." (with-buffer-syntax () @@ -2230,7 +2230,8 @@ (lambda () (let ((*compile-print* nil) (*compile-verbose* t)) (swank-compile-string string :buffer buffer :position position - :directory directory)))))) + :directory directory + :debug debug)))))) (defun file-newer-p (new-file old-file) "Returns true if NEW-FILE is newer than OLD-FILE."

3 4

[slime-devel] [patch] Improvements to slime-selector window handling
by Travis Cross 06 Jun '08

06 Jun '08

Greetings, The slime selector help feature does not restore emacs windows to their prior configuration after it is used. This seems suboptimal to me. The attached patch corrects this issue. The patch also provides for automatically burying 'transactional' buffers when using the slime selector. This may be a personal preference, but I don't like the top of my buffer list filling up with temporary buffers. patches (1): Improvements to slime-selector window handling. After selecting help from the slime selector, then selecting another option, emacs windows are now restored. Also, temporary buffers selected from the slime-selector are now buried in the window list. contrib/slime-scratch.el | 2 +- slime.el | 71 +++++++++++++++++++++++++++++++++------------ 2 files changed, 53 insertions(+), 20 deletions(-) Cheers, -- Travis From f4c3f919c62f3aa91a29889478984dcf66ea66ac Mon Sep 17 00:00:00 2001 From: Travis Cross <tc(a)traviscross.com> Date: Sat, 24 May 2008 03:04:31 +0000 Subject: [PATCH] Improvements to slime-selector window handling. After selecting help from the slime selector, then selecting another option, emacs windows are now restored. Also, temporary buffers selected from the slime-selector are now buried in the window list. --- contrib/slime-scratch.el | 2 +- slime.el | 71 +++++++++++++++++++++++++++++++++------------ 2 files changed, 53 insertions(+), 20 deletions(-) diff --git a/contrib/slime-scratch.el b/contrib/slime-scratch.el index 0121208..a54a1de 100644 --- a/contrib/slime-scratch.el +++ b/contrib/slime-scratch.el @@ -42,7 +42,7 @@ (defun slime-scratch-init () (def-slime-selector-method ?s - "*slime-scratch* buffer." + ("*slime-scratch* buffer." :buryp t) (slime-scratch-buffer))) (provide 'slime-scratch) \ No newline at end of file diff --git a/slime.el b/slime.el index c73756b..1891aaa 100644 --- a/slime.el +++ b/slime.el @@ -7684,6 +7684,19 @@ If ARG is negative, move forwards." Each element is a list (KEY DESCRIPTION FUNCTION). DESCRIPTION is a one-line description of what the key selects.") +(defvar slime-selector-saved-emacs-snapshot nil + "The snapshot of the current state in Emacs before slime selector help was +activated.") + +(defvar slime-selector-bury-buffers nil + "A list of buffers to bury after switching to the next selector method.") + +(defvar slime-selector-kill-buffers nil + "A list of buffers to kill after switching to the next selector method.") + +(defvar slime-help-buffer-name "*Select Help*" + "The name of the slime help buffer.") + (defun slime-selector () "Select a new buffer by type, indicated by a single character. The user is prompted for a single character indicating the method by @@ -7707,7 +7720,7 @@ See `def-slime-selector-method' for defining new methods." (t (funcall (third method)))))) -(defmacro def-slime-selector-method (key description &rest body) +(defmacro* def-slime-selector-method (key (description &key buryp killp) &rest body) "Define a new `slime-select' buffer selection method. KEY is the key the user will enter to choose this method. @@ -7721,63 +7734,83 @@ switch-to-buffer." `(setq slime-selector-methods (sort* (cons (list ,key ,description (lambda () - (let ((buffer (progn ,@body))) - (cond ((get-buffer buffer) - (switch-to-buffer buffer)) - (t - (message "No such buffer: %S" buffer) - (ding)))))) + ,@(unless (= key ??) + `((let ((help-buffer (get-buffer slime-help-buffer-name))) + (when (and slime-selector-saved-emacs-snapshot help-buffer) + (slime-set-emacs-snapshot slime-selector-saved-emacs-snapshot)) + (when slime-selector-saved-emacs-snapshot + (setq slime-selector-saved-emacs-snapshot nil)) + (when help-buffer + (ignore-errors (kill-buffer help-buffer)))))) + (let* ((buffer-or-name (progn ,@body)) + (buffer (get-buffer buffer-or-name))) + (if buffer + (progn + (switch-to-buffer buffer) + (loop for b = (pop slime-selector-bury-buffers) + while b do (ignore-errors (bury-buffer b))) + (loop for b = (pop slime-selector-kill-buffers) + while b do (ignore-errors (kill-buffer b))) + ,@(when buryp `((bury-buffer buffer) + (push buffer slime-selector-bury-buffers))) + ,@(when killp `((push buffer slime-selector-kill-buffers)))) + (progn + (message "No such buffer: %S" buffer) + (ding)))))) (remove* ,key slime-selector-methods :key #'car)) #'< :key #'car))) -(def-slime-selector-method ?? "Selector help buffer." - (ignore-errors (kill-buffer "*Select Help*")) - (with-current-buffer (get-buffer-create "*Select Help*") +(def-slime-selector-method ?? ("Selector help buffer." :buryp t) + (ignore-errors (kill-buffer slime-help-buffer-name)) + (unless slime-selector-saved-emacs-snapshot + (setq slime-selector-saved-emacs-snapshot (slime-current-emacs-snapshot))) + (with-current-buffer (get-buffer-create slime-help-buffer-name) (insert "Select Methods:\n\n") (loop for (key line function) in slime-selector-methods do (insert (format "%c:\t%s\n" key line))) (help-mode) (display-buffer (current-buffer) t) (shrink-window-if-larger-than-buffer - (get-buffer-window (current-buffer)))) + (get-buffer-window (current-buffer))) + (bury-buffer (current-buffer))) (slime-selector) (current-buffer)) (def-slime-selector-method ?r - "SLIME Read-Eval-Print-Loop." + ("SLIME Read-Eval-Print-Loop." :buryp t) (slime-output-buffer)) (def-slime-selector-method ?i - "*inferior-lisp* buffer." + ("*inferior-lisp* buffer." :buryp t) (cond ((and (slime-connected-p) (slime-process)) (process-buffer (slime-process))) (t "*inferior-lisp*"))) (def-slime-selector-method ?v - "*slime-events* buffer." + ("*slime-events* buffer." :buryp t) slime-event-buffer-name) (def-slime-selector-method ?l - "most recently visited lisp-mode buffer." + ("most recently visited lisp-mode buffer." :buryp nil) (slime-recently-visited-buffer 'lisp-mode)) (def-slime-selector-method ?d - "*sldb* buffer for the current connection." + ("*sldb* buffer for the current connection." :buryp t) (or (sldb-get-default-buffer) (error "No debugger buffer"))) (def-slime-selector-method ?e - "most recently visited emacs-lisp-mode buffer." + ("most recently visited emacs-lisp-mode buffer." :buryp nil) (slime-recently-visited-buffer 'emacs-lisp-mode)) (def-slime-selector-method ?c - "SLIME connections buffer." + ("SLIME connections buffer." :buryp t) (slime-list-connections) "*SLIME connections*") (def-slime-selector-method ?t - "SLIME threads buffer." + ("SLIME threads buffer." :buryp t) (slime-list-threads) "*slime-threads*") -- 1.5.5.1

1 1

[slime-devel] Re: function/symbol-function and thread binding bug?
by Rudi Schlatte 31 May '08

31 May '08

"Tobias C. Rittweiler" <tcr(a)freebits.de> writes: > szergling <senatorzergling(a)gmail.com> writes: > >> Hi folks, >> >> Perhaps I've confused myself a bit here, but there seem to be >> something wrong with either Slime (most likely), SBCL threads, or my >> understanding of the difference between (funcall 'print-something) and >> (funcall #'print-something). >> >> Could someone confirm the following behaviour? > > This is not a Slime issue; the analysis seems correct, though. You > shouldn't rely on this behaviour programmatically. HTH. > I say it's a misunderstanding of the difference between the two funcall examples. You can rely on (let ((that-which-i-want-to-call 'print-something)) (funcall that-which-i-want-to-call)) and (let ((that-which-i-want-to-call #'print-something)) (funcall that-which-i-want-to-call)) to have different semantics. This is not a bug. funcall takes a function designator, which can be a symbol or a function. If funcall is called with 'print-something, it picks up the function that that is currently residing in print-something's function cell. But a redefinition of print-something (which is just storing a new value in that symbol's function cell) doesn't magically hunt down and overwrite every function object (now not bound to any symbol's function attribute) that happened to have been stored in print-something's function cell at some point in the past. So, in the second example the same function will be called, no matter in what way print-something is manhandled in another thread. Cheers, Rudi

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel May 2008