slime-devel

slime-devel@common-lisp.net

4231 discussions

[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] Patch: suppress duplicated frame variables (Allegro)
by Willem Broekema 10 Jun '08

10 Jun '08

The Allegro debugger sometimes includes a local variable more than once as a variable in a frame. E.g. (defun f (x y) (declare (optimize debug)) (zut (bar x) y)) Allegro itself lists the frame variables as: Compiled lexical environment: 0(required): x: 1 1(required): y: 2 2(local): y: 2 This patch suppresses the duplicates as shown by Slime (which does not show the "required" / "local" labels). - Willem --- swank-allegro.lisp 10 Jun 2008 19:55:30 +0200 1.102 +++ swank-allegro.lisp 10 Jun 2008 22:16:09 +0200 @@ -173,11 +173,16 @@ (debugger:output-frame stream frame :moderate)) (defimplementation frame-locals (index) - (let ((frame (nth-frame index))) - (loop for i from 0 below (debugger:frame-number-vars frame) - collect (list :name (debugger:frame-var-name frame i) - :id 0 - :value (debugger:frame-var-value frame i))))) + (let* ((frame (nth-frame index)) + (locals (loop for i from 0 below (debugger:frame-number-vars frame) + collect (cons (debugger:frame-var-name frame i) + (debugger:frame-var-value frame i))))) + ;; Remove e.g. function arguments duplicated as local variables. + (setq locals (delete-duplicates locals :test (lambda (x y) + (and (eq (car x) (car y)) + (eq (cdr x) (cdr y)))))) + (loop for (name . val) in locals + collect (list :name name :id 0 :value val)))) (defimplementation frame-var-value (frame var) (let ((frame (nth-frame frame)))

3 4

[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

Re[2]: [slime-devel] Re: Loading slime and swank with clisp doesn't work.
by Anton Vodonosov 08 Jun '08

08 Jun '08

on Sunday, June 8, 2008, 9:01:56 PM Eric wrote: > Thanks Anton > I updated to the latest slime and now it works. > I updated using the following file : > http://common-lisp.net/cgi-bin/viewcvs.cgi/root.tar.gz?root=slime&view=tar > However, it didn't work when I updated with the following command : > cvs -d > :pserver:anonymous:anonymous@common-lisp.net:/project/slime/cvsroot co -rFAIRLY-STABLE slime It's OK. The FAIRLY-STABLE tag was made when clisp version was <= 2.43 and supports only this version. Best regards, -Anton > Anton Vodonosov <avodonosov(a)yandex.ru> wrote: Hello, Eric. Update to the latest slime. > Best regards, > -Anton > on Saturday, June 7, 2008, 2:08:59 PM Eric wrote: >> Hello, >> I have the same behaviour with clisp 2.45. >> I also need to abort the connection to the swank server. >> See below. >> My .clisprc file only contains the following line. >> (in-package :common-lisp-user) >> How should this be fixed ? >> Cordially, >> Eric >> (progn (load "e:/MyRoot/home/elisp/slime/swank-loader.lisp" :verbose >> t) >> (funcall (read-from-string "swank:start-server") >> "c:/DOCUME~1/GCVD3476/LOCALS~1/Temp/slime.2460" >> :coding-system "iso-latin-1-unix")) >> 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.45 (2008-05-15) >> 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 E:\h\.clisprc ... >> ;; Loaded file E:\h\.clisprc [1]>>> >> ;; Loading file E:\h\elisp\slime\swank-loader.lisp ... >> ;; Loading file >> >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\swank-backend.fas ... >> ;; Loaded file >> >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\swank-backend.fas >> ;; Loading file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\nregex.fas . >> ;; Loaded file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\nregex.fas >> ;; Loading file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\xref.fas ... >> ;; Loaded file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\xref.fas >> ;; Loading file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\metering.fas >> ;; Loaded file >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\metering.fas >> ;; Compiling file E:\h\elisp\slime\swank-clisp.lisp ... >> The following functions were used but not defined: >> SWANK-BACKEND::SLDB-BACKTRACE >> 0 errors, 0 warnings >> ;; >> ;; Error while loading: >> E:\h\.slime\fasl\2007-08-16\clisp-2.45-win32-pc386\swank-clisp.fas >> ;; Condition: INTERN("FRAME-UP-1"): # is locked >> ;; Aborting. >> ;; [2]>>> >> Polling "c:/DOCUME~1/GCVD3476/LOCALS~1/Temp/slime.2460".. >> (Abort with `M-x slime-abort-connection'.) [61 times] >> Cancelled connection attempt. >> _______________________________________________ >> slime-devel site list >> slime-devel(a)common-lisp.net >> http://common-lisp.net/mailman/listinfo/slime-devel > Eric Belpaire > --------------

1 0

[slime-devel] #line
by Helmut Eller 08 Jun '08

08 Jun '08

C supports a #line directive which tells the compiler that the source location isn't in the file that compiler reads but somewhere else. Tools like Yacc use this to instruct the C compiler to generate error messages for the yacc source file rather than the intermediate C file. Is/was there a Lisp or Scheme compiler that supports something similar?

2 4

[slime-devel] can't start slime-scratch buffer
by allenjwd 08 Jun '08

08 Jun '08

hello, i follow Peter's post :Installing CLISP, Emacs, and SLIME on Windows XP(http://www.pchristensen.com/blog/articles/installing-clisp-emacs-and-sli… and it works.But when i enter M-x slime-scratch ,emacs says no match key,and nothing happens.Is there anybody who ever got this problem? Thank you!

2 1

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

07 Jun '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1357 slime/ChangeLog:1.1359 --- slime/ChangeLog:1.1357 Mon Jun 2 14:11:15 2008 +++ slime/ChangeLog Sat Jun 7 07:50:24 2008 @@ -1,3 +1,23 @@ +2008-06-07 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (def-slime-test find-definition.2, arglist): + SWANK:COMPILE-STRING-FOR-EMACS since recently takes 5 instead of 4 + parameters. Fix that. + +2008-06-07 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime.el (slime-extract-context, slime-parse-context): Recognize + more toplevel forms, e.g. DEFINE-COMPILER-MACRO &c. Such that + `slime-parse-toplevel-form' will also recognize these. + (slime-trace-query): Adapted to above changes. Errors if spec is + untraceable. + (slime-call-defun): Adapted to also support the new toplevel forms. + + (slime-cl-symbol-name), + (slime-cl-symbol-package), + (slime-qualify-cl-symbol-name): Resurrected from the `slime-parse' + contrib, as they've been used by `slime-call-defun'. + 2008-06-02 Raymond Toy <toy.raymond(a)gmail.com> Unicode support for CMUCL. Index: slime/contrib/ChangeLog diff -u slime/contrib/ChangeLog:1.106 slime/contrib/ChangeLog:1.107 --- slime/contrib/ChangeLog:1.106 Thu Apr 17 11:21:51 2008 +++ slime/contrib/ChangeLog Sat Jun 7 07:46:15 2008 @@ -1,3 +1,10 @@ +2008-06-07 Tobias C. Rittweiler <tcr(a)freebits.de> + + * slime-parse.el (slime-cl-symbol-name), + (slime-cl-symbol-package), + (slime-qualify-cl-symbol-name): Moved back to `slime.el' as + they're still used there. + 2008-04-17 Gábor Melis <mega(a)retes.hu> * swank-fancy-inspector.lisp (inspect-slot-for-emacs):

1 0

[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] cvs commit messages?
by rambham＠gmail.com 06 Jun '08

06 Jun '08

Hi, Are commit messages sent anywhere? I have a current snapshot, but I would like to know when check-ins happen. Thanks. -Ram

3 2

[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

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel