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

[slime-devel] comma shortcut doesn't work always
by Edi Weitz 31 Jan '06

31 Jan '06

Another minor glitch that I encountered is that the comma shortcut in the REPL doesn't always work. I can consistently reproduce it (GNU Emacs 21.3.50 and also 21.3 release) like this: 1. Make sure point is at the beginning of a REPL input line. 2. Split Emacs frame into two windows, one of them being the REPL the other one containing something else. 3. Hide REPL window with C-x 0. 4. Now type M-x slime. 5. Type the comma. At this point I'm not asked for a shortcut command in the minibuffer but the comma is simply entered into the REPL instead. Anybody else seeing this? Cheers, Edi.

10 25

Re: [slime-devel] Re: CLISP SLIME implementation breaks in CVS
by Bill_Clementson＠peoplesoft.com 21 Jan '06

21 Jan '06

Luke Gorrie <luke(a)bluetail.com> writes: > Bill_Clementson(a)peoplesoft.com writes: > > > My previous SLIME installation was a CVS install from 4/18. I've just taken > > the latest CVS install and the CLISP SLIME implementation (under Windows) > > breaks. Here is the error: > > > > COERCE: #<MACRO #<COMPILED-CLOSURE SWANK::DEFSLIMEFUN>> cannot be coerced > > to type FUNCTION > > [Condition of type SIMPLE-TYPE-ERROR] > > I can reproduce this but I've no idea what is causing it. It /looks/ > like someone is trying to call defslimefun as a function rather than a > macro, but I don't see where it could happen -- the macro is declared > at the top of the only file that refers to it. > > I did fix a different but similar problem that I got under CLISP. It > seems like I had to swap the order of a couple of macros, one of which > expanded into into code that calls the other, but that surely can't be > the reason. > > > Backtrace: > > 0: EVAL frame for form (SWANK:CREATE-SWANK-SERVER 4007) > > Mine actually gives an empty backtrace (!). I fixed the Elisp-side to > handle that incase it helps someone more CLISP-savvy find the problem. Has anybody had any luck in finding the source of this problem? CLISP still breaks for me in the latest CVS. I have had a look at all of the DEFSLIMEFUN's that were modified since 4/18 (the previous CVS version that I had which was working ok with CLISP) and haven't found any obvious clues. Any suggestions on how I might debug this issue as it occurs at startup during the slime-connect processing in Emacs (after CLISP has started up successfully)? - Bill

5 6

[slime-devel] Problems with LWW FLI
by Edi Weitz 29 Mar '05

29 Mar '05

Hi! Has anyone else problems with SLIME when using Lispworks on Windows (XP) and its FLI? I've run into a (reproducable but complicated) situation where SLIME simply hung while there were no problems from the LW IDE or from the command line. I'm sitting at my Linux laptop now but I can try to create a simple test case - I just wanted to check if this is a known problem. Cheers, Edi.

4 11

[slime-devel] eval-in-emacs and 'window'-debugger
by Antonio Menezes Leitao 10 Feb '05

10 Feb '05

Hi everybody, I noticed that slime provides a function eval-in-emacs that sends a form to the emacs side where it is evaluated. However, I would like to get the results on the lisp side but I always get NIL. Is there a different swank function for that? (in the emacs-lisp-interface from Franz I used a lep::eval-in-emacs that did precisely what I needed). This is very useful to provide refactoring operations (that operate on the Lisp side) that need to interact with the user using emacs lisp operations such as y-or-n-p or read-from-minibuffer. I know that it might be difficult to find a general scheme to translate from emacs lisp values to common lisp values but all I need is symbols, strings, numbers and such. ----------------- A few years ago I developed a 'window'-debugger and 'window'-inspector for Ilisp+CMUCL similar to what I used in the Explorer Lisp Machines. I recently adapted it to Slime+Whatever-Common-Lisp-slime-supports. If anyone is interested I can post it. However, I would like to suggest two changes to Slime in order to improve its portability: 1. The function swank::inspected-parts should provide a recognizable value for unbound slots. Here is one example in SBCL CL-USER> (defclass c () ((a))) #<STANDARD-CLASS C> CL-USER> (swank::inspected-parts (make-instance 'c)) "The object is a STANDARD-OBJECT of type C. " (("A" . #:INSPECT-UNBOUND-OBJECT-3530)) and in CLISP CL-USER> (swank::inspected-parts (make-instance 'c)) "#<COMMON-LISP-USER::C #x20426856> standard object type: COMMON-LISP-USER::C" (("A" . INSPECT-TMP-PACKAGE-5413::|#<unbound>|)) I know that the returned values are recognizable (e.g., by being the value of the variable sb-impl::*inspect-unbound-object-marker* or something similar) but given the fact that it depends on the Common Lisp being used, it would be preferable if Slime provided a function that recognizes such value. If it already does, my apologies. 2. The function swank::frame-locals doesn't distinguish valid locals from invalid ones. I know that not all Common Lisps make that distinction but for the ones that make, it would be useful to get that information (for Common Lisps that don't provide such information a default could be chosen). Currently, Slime puts a :not-available as value which, IMHO, is error-prone. It would be nicer to have an extra field for each local that describes its status or (as in 1.) a slime function that recognizes such special value or as a third (and not so good) alternative, swank::frame-locals should not produce invalid locals. Thanks in advance, António Leitão.

2 2

[slime-devel] some cancel-timer error
by Surendra Singhi 02 Feb '05

02 Feb '05

Hi, I am using Xemacs 21.4.13 and slime-1.0 with clisp 2.33.1 on window XP. When I try to start slime it says swank started at port 1071 but it doesn't connects to the clisp. And on doing debug on error I get the message below. Earlier everything use to work fine, but yesterday I was playing with my Xemacs setting and I landed up in this trouble. Is it some slime problem or clisp or xemacs problem? What is the solution for it? Thanks. Debugger entered--Lisp error: (void-function cancel-timer) (cancel-timer slime-connect-retry-timer) (if slime-connect-retry-timer (cancel-timer slime-connect-retry-timer)) (lambda (G81326 G81327 G81328) (if (active-minibuffer-window) nil (message "Polling %S.. (Abort with `M-x slime-abort-connection'.)" ...)) (slime-set-state (format "[polling:%S]" ...)) (if slime-connect-retry-timer (cancel-timer slime-connect-retry-timer)) (setq slime-connect-retry-timer nil) (cond (... ...) (... ...) (t ... ...)))(--G81320-- --attempt-- --retries--) apply((lambda (G81326 G81327 G81328) (if (active-minibuffer-window) nil (message "Polling %S.. (Abort with `M-x slime-abort-connection'.)" ...)) (slime-set-state (format "[polling:%S]" ...)) (if slime-connect-retry-timer (cancel-timer slime-connect-retry-timer)) (setq slime-connect-retry-timer nil) (cond (... ...) (... ...) (t ... ...))) --G81320-- --attempt-- --retries-- nil) (lambda (&rest --cl-rest--) "\nCommon Lisp lambda list:\n (cl-none . NIL)\n\n" (apply (quote ...) (quote --G81320--) (quote --attempt--) (quote --retries--) --cl-rest--))() funcall((lambda (&rest --cl-rest--) "\nCommon Lisp lambda list:\n (cl-none . NIL)\n\n" (apply (quote ...) (quote --G81320--) (quote --attempt--) (quote --retries--) --cl-rest--))) (progn (set --G81320--81321 (list ... ... ... ...)) (funcall (symbol-value --G81320--81321))) (let ((--G81320--81321 ...)) (set --G81320--81321 nil) (progn (set --G81320--81321 ...) (funcall ...))) (let ((--retries--81318 ...) (--attempt--81319 ...)) (setf (symbol-value --retries--81318) retries (symbol-value --attempt--81319) 0) (let (...) (set --G81320--81321 nil) (progn ... ...))) (lexical-let ((retries retries) (attempt 0)) (labels (...) (attempt-connection))) slime-read-port-and-connect(nil) slime-inferior-connect() (progn (cond (... ...) (t ...)) (slime-maybe-start-lisp) (slime-inferior-connect)) (if (or (not ...) (slime-urge-bytecode-recompile)) (progn (cond ... ...) (slime-maybe-start-lisp) (slime-inferior-connect))) (when (or (not ...) (slime-urge-bytecode-recompile)) (cond (... ...) (t ...)) (slime-maybe-start-lisp) (slime-inferior-connect)) (lambda nil "Start an inferior^_superior Lisp and connect to its Swank server." (interactive) (when (or ... ...) (cond ... ...) (slime-maybe-start-lisp) (slime-inferior-connect)))() call-interactively(slime) command-execute(slime t) execute-extended-command(nil) call-interactively(execute-extended-command) -- Surendra Singhi www.public.asu.edu/~sksinghi/

2 3

[slime-devel] Editing old inputs
by Raymond Toy 02 Feb '05

02 Feb '05

A few days ago, Luke fixed an issue I had with editing old inputs in the slime-repl. The problem was that if I cut and pasted an old input (like M-p, but manually) to the current prompt, I couldn't edit it. The issue was with xemacs and read-only regions or something like that. I've updated slime now, and this is fixed. (Thanks Luke!) However, the input is still bold, and when I press enter, slime appends a copy to the prompt. I have to press enter again to get the repl to see it. Oh, that only happens if I press enter in the middle of the form. If I place the cursor at the end, slime sends the form off with no duplicates displayed and no second enter needed. Just a note to point out the issue. :-) It works well enough not to bother me too much since I couldn't even edit it before. Especially annoying when you cut and paste the function into a file and can't edit it. :-( Ray

2 3

[slime-devel] Problem with slim on SunOS sparc
by Damien Cassou 01 Feb '05

01 Feb '05

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi, I have installed slime on my personnal computer with no problem but I can't made it run at school. I'm using slime from CVS on FAIRLY-STABLE branch. My problem is when I launch slime with 'M-x slime', the connection process never finish and the seconds scroll up in the mode line. I have tried with and without the following line in ~/.swank.lisp (setf swank::*communication-style* :fd-handler) Thanks Some version numbers and some debug messages follow : - ----------------------------------------------------- $ uname -a SunOS narrhavas 5.9 Generic_112233-11 sun4u sparc SUNW,Ultra-80 $ emacs --version GNU Emacs 21.3.1 $ lisp CMU Common Lisp 18c, Built 2000-11-28, running on narrhavas ~ Python 1.0, target SPARCstation/Solaris 2 ~ CLOS based on PCL version: September 16 92 PCL (f) ~ CLX X Library MIT R5.02 ~ Motif toolkit and graphical debugger 1.0 ~ Hemlock 3.5 $ tail -n 5 ~/.emacs ;; lisp (setq inferior-lisp-program "/net/hamilcar/s6/ens/david/bin/lisp") (add-to-list 'load-path "~/.emacs.d/slime-cvs") (require 'slime) (slime-setup) Here is what I can see when I launch slime with 'M-x slime' : - ------------------------------------------------------------- File: /a/tanit/home2/i1/cassou/.emacs.d/slime-cvs/swank-cmucl.lisp In: DEFIMPLEMENTATION PROFILE-PACKAGE ~ (PROFILE:PROFILE-ALL :PACKAGE PACKAGE :CALLERS-P CALLERS ...) Warning: :METHODS is not a known argument keyword. Converted |(PCL::FAST-METHOD PROFILE-PACKAGE (T T T))|. Compiling DEFIMPLEMENTATION PROFILE-PACKAGE: Byte Compiling Top-Level Form: home:.slime/fasl/cmu-18c, Built 2000-11-28/swank-cmucl.sparcf written. Compilation finished in 0:00:06. ;; Loading #p"/a/tanit/home2/i1/cassou/.slime/fasl/cmu-18c, Built 2000-11-28/swank-cmucl.sparcf". Invoking debugger... Starting server: ~ will_fork = False ~ will_trace = False ~ No Inet domain socket created. ~ path = /tmp/.motif_socket-p8093 Error in function XLIB::OPEN-X-STREAM: ~ Failed to connect to X11 server: cassy (display 1) Restarts: ~ 0: [CONTINUE] Return NIL from load of #p"home:.slime/fasl/cmu-18c, Built 2000-11-28/swank-cmucl.sparcf". ~ 1: Return NIL from load of "/net/i1/cassou/.emacs.d/slime-cvs/swank-loader.lisp". ~ 2: [ABORT ] Return to Top-Level. Debug (type H for help) (C::DO-CALL #<Code Object "Top-Level Form" {8062E3FF}> 58 59 46 ...) Source: Error finding source: Error in function COMMON-LISP::%ENUMERATE-SEARCH-LIST: ~ Undefined search list: trunk 0] Waiting for connection. Accepting client on Unix socket. Accepted client on fd 4 Server not forking. - -- Damien -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org iD8DBQFB/pFLyl2oT75/6woRAoI8AKCQt5RuNfAGxfqa0JxpvSDZYZm8kQCdEX4K BX04M+txgQZYa1s7cwuMG0g= =nT/F -----END PGP SIGNATURE-----

3 3

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 30 Jan '05

30 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.605 slime/ChangeLog:1.607 --- slime/ChangeLog:1.605 Thu Jan 27 11:56:22 2005 +++ slime/ChangeLog Sun Jan 30 01:43:52 2005 @@ -1,3 +1,11 @@ +2005-01-30 Bryan O'Connor <bryan-slime(a)lunch.org> + + * slime.el (slime-goto-location-position): Changed the regexp to + require the function-name to be followed by a + non-symbol-constituent character \S_. Previously, a function-name + of "find" first matched find-if-not if it occured earlier in the + file. + 2005-01-27 Helmut Eller <heller(a)common-lisp.net> * slime.el (slime-busy-p): Ignore debugged continuations to enable

1 0

[slime-devel] slime with sbcl 0.8.19 - error in process filter
by Todd Dukes 30 Jan '05

30 Jan '05

I had slime working with sbcl 0.8.16. I downloaded sbcl 0.8.19 and when I try to start slime I get this in my *Message* buffer Polling "/tmp/slime.18807".. (Abort with `M-x slime-abort-connection'.) [2 times] Connecting to Swank on port 51816.. Initial handshake... Connected. Let the hacking commence! error in process filter: slime-process-available-input: Wrong type argument: listp, § error in process filter: Wrong type argument: listp, § I am using emacs 21.3.1 on Fedora core 3. Any help would be appreciated. My solution for now is to go back to sbcl 0.8.16 thanks, Todd.

2 4

[slime-devel] slime-goto-location-position patch
by bryan o'connor 30 Jan '05

30 Jan '05

when passed a :function-name, slime-goto-location-position would find earlier occurrences of symbols which start with the function name followed by a symbol-constituent character. for example: a function-name of "find" will first match find-if-not if it occurs earlier in the file. this seems to happen a lot with openmcl source. i changed the regexp to require the function-name to be followed by a non-symbol-constituent character \S_. the regexp immediately following for :method may benefit also from the change (\> to \S_) but i didn't have a decent test case. ...bryan

2 1

[slime-devel] other "lisps" support?
by tom 30 Jan '05

30 Jan '05

Hi guys, how easily can slime be modified to support non-common-lisp languages? I have one in mind that I'd love to use with slime... thanks!

3 2

[slime-devel] XEmacs, Slime and LWW again
by Fabrice Popineau 28 Jan '05

28 Jan '05

I have a slightly different issue concerning XEmacs/Slime and LWW. I can make it work with console lisp. What does not work is to start the LWW ide from xemacs. Basically, if I run "lispworks-console -init slime.lisp", the init file containing something like : (load "c:/Program Files/XEmacs/xemacs-packages/lisp/slime/swank-loader.lisp") #+lispworks (swank:startup-multiprocessing) #-clisp (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t) #+clisp (swank::create-swank-server 4005) then it is working ok. However, if I try to run the IDE version of LWW from XEmacs, then the IDE does not show up. It seems to be stalled on starting multiprocessing. For what it worth, I have attached the messages I get in the process buffer when LWW/IDE starts. If I provoke an error in the lisp process, I get the message from the (swank::swank-create-server ...) which is clearly not yet executed. Also, the way I start slime is not the standard one. This is the one Bill Clemenson offered on his blog. The standard way to run slime needs the lisp process to interact with (x)emacs through the console. Albeit it is possible to do that with win32 programs, I wonder if LWW can cope with that. Best regards, -- Fabrice Popineau ------------------------ e-mail: Fabrice.Popineau(a)supelec.fr | The difference between theory voice-mail: +33 (0) 387764715 | and practice, is that surface-mail: Supelec, 2 rue E. Belin, | theoretically, F-57070 Metz | there is no difference ! LispWorks(R) (for the Windows(R) operating system) Copyright (C) 1987-2003 Xanalys LLC. All rights reserved. Version 4.3.7 Saved by popineau as lispworks-4307, at 25 Sep 2004 15:16 User popineau on ANSIBLE ; Loading text file C:\Program Files\Xanalys\LispWorks\lib\4-3-0-0\config\siteinit.lisp ; Loading text file C:\Program Files\Xanalys\LispWorks\lib\4-3-0-0\private-patches\load.lisp ; Loading text file c:\Documents and Settings\popineau\My Documents\.xemacs\slime.lisp ; Loading text file c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-loader.lisp ; Loading fasl file c:\Documents and Settings\popineau\My Documents\.slime\fasl\lispworks-4.3.7\swank-backend.fsl ; Loading fasl file c:\Documents and Settings\popineau\My Documents\.slime\fasl\lispworks-4.3.7\nregex.fsl ; Loading fasl file c:\Documents and Settings\popineau\My Documents\.slime\fasl\lispworks-4.3.7\swank-lispworks.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks\lib\4-3-0-0\modules\concat\comm.fsl ; Loading fasl file C:\Program Files\Xanalys\LispWorks\lib\4-3-0-0\patches\comm\0001\0001.fsl ; Loaded public patch COMM 1.1 ; Loading fasl file C:\Program Files\Xanalys\LispWorks\lib\4-3-0-0\patches\comm\0001\0002.fsl ; Loaded public patch COMM 1.2 Warning: (METHOD PREFERRED-COMMUNICATION-STYLE NIL) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD EMACS-CONNECTED NIL) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD MAKE-STREAM-INTERACTIVE (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD CALL-WITHOUT-INTERRUPTS (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD LISP-IMPLEMENTATION-TYPE-NAME NIL) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD SET-DEFAULT-DIRECTORY (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD ARGLIST (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD FUNCTION-NAME (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD STARTUP-MULTIPROCESSING NIL) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD THREAD-NAME (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD THREAD-STATUS (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD MAKE-LOCK NIL) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD CALL-WITH-LOCK-HELD (T T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD CURRENT-THREAD NIL) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD KILL-THREAD (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). Warning: (METHOD THREAD-ALIVE-P (T)) being redefined in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-lispworks.lisp (previously in c:\Program Files\XEmacs\xemacs-packages\lisp\slime\swank-backend.lisp). ; Loading fasl file c:\Documents and Settings\popineau\My Documents\.slime\fasl\lispworks-4.3.7\swank-gray.fsl ; Loading fasl file c:\Documents and Settings\popineau\My Documents\.slime\fasl\lispworks-4.3.7\swank.fsl Warning: These Swank interfaces are unimplemented: (ACTIVATE-STEPPING ADD-FD-HANDLER ADD-SIGIO-HANDLER DISASSEMBLE-FRAME PROFILE PROFILE-PACKAGE PROFILE-REPORT PROFILE-RESET PROFILED-FUNCTIONS REMOVE-FD-HANDLERS REMOVE-SIGIO-HANDLERS SLDB-BREAK-AT-START SLDB-BREAK-ON-RETURN UNPROFILE) CL-USER 1 >

1 1

[slime-devel] Slime with LWW and Xemacs
by Marc Battyani 28 Jan '05

28 Jan '05

I'm trying to setup Slime with LWW and Xemacs. I've just made a checkout of Slime from the CVS. First I load Slime in LW and start : (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t) Then in Xemacs I use Bill Clementson's setup: ;;;; SLIME Setup by Bill Clementson (require 'slime) (add-hook 'lisp-mode-hook (lambda () (slime-mode t))) (add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t))) (slime-autodoc-mode) (defun my-setup-slime () "Set up common variables used by slime." (interactive) (setq slime-multiprocessing t) (require 'completer) (require 'slime) (modify-coding-system-alist 'process "lisp" 'undecided-unix) (slime-setup)) I call my-setup-slime then slime-connect. No errors so far. Now I try "Show REPL", I get a Lisp prompt but when I try to evaluate a form I just get: ;pipelined request... (swank:listener-eval "(+ 1 2) ") I tried to run slime-run-tests and get assertion failed: (not (slime-busy-p)) Any idea ? Marc

5 14

[slime-devel] Arglist while in SLIME debugger
by Lynn Quam 28 Jan '05

28 Jan '05

I find it somewhat annoying that I cannot see the arglist information for functions while in the SLIME debugger. Is it possible to change SLIME-BUSY-P so that SLIME-AUTODOC-MODE and SLIME-SPACE will continue to work while inside the SLIME debugger? To implement this, the SLIME-BUSY-P needs to know the rex-continuations for the forms that cause the debugger to be entered. The SLIME debugger needs to be able to figure out the rex-continuation of the form that caused the debugger to be entered and add it to the list in the global variable *SLDB-REX-CONTINUATIONS*. When the debugger exits, it needs to remove it from the list. SLIME-BUSY-P would become something like: (defvar *sldb-rex-continuations* nil) (defun slime-busy-p () "True if Lisp has outstanding requests." (let ((sldb-continuations *sldb-rex-continuations*)) (dolist (contin (slime-rex-continuations) nil) (if (not (memq contin sldb-continuations)) (return t)))))

2 3

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 27 Jan '05

27 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.604 slime/ChangeLog:1.605 --- slime/ChangeLog:1.604 Thu Jan 20 12:05:05 2005 +++ slime/ChangeLog Thu Jan 27 11:56:22 2005 @@ -1,3 +1,28 @@ +2005-01-27 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-busy-p): Ignore debugged continuations to enable + arglist lookup while debugging. Suggested by Lynn Quam. + (sldb-continuations): New buffer local variable in sldb buffers to + keep track of debugged continuations. + (sldb-debugged-continuations): New function. + (sldb-buffers): Renamed from sldb-remove-killed-buffers. + (slime-eval-print): New function to insert the stream output and + the result of an evaluation in the current buffer. + (slime-eval-print-last-expression): Use it. + (slime-interactive-eval): Use slime-eval-print when a prefix + argument was given. + + * swank.lisp (*pending-continuations*, eval-in-emacs) + (debugger-info-for-emacs): Keep track of debugged continuation the + new variable *pending-continuations* and include the list of + active continuations in the debugger info for Emacs. + (eval-and-grab-output): New function. Used by slime-eval-print. + (*log-output*): Renamed from *log-io*. Use *standard-error* as + initial value instead of *terminal-io*. CMUCL opens its own tty + and that makes it hard to redirect to output with a shell. + *standard-error* writes its output to file descriptor 2. + (*canonical-package-nicknames*): Fix typo. + 2005-01-20 Helmut Eller <heller(a)common-lisp.net> * swank.lisp (parse-symbol): Don't break if the package doesn't

1 0

Re: [slime-devel] Re: C-M-x kills emacs
by Jeffrey Cunningham 24 Jan '05

24 Jan '05

On Sat Jan 22, 2005 at 09:28:51PM +0100, Helmut Eller wrote: > Jeffrey Cunningham <jeffrey(a)cunningham.net> writes: > > > Thanks once again. I'm slowy starting to figure out how this all goes > > together. Okay - everything works as you describe now, and when I try > > C-M-x in emacs it dies like always. But I can't find any sign of a > > log. I checked in the directory I started emacs in, the directory I > > started cmucl in (same one), my ~/ directory, and even checked > > /var/log/messages. Where does it put the log? > > The log is just printed to stdout in the xterm where you started the > server. After connecting with Emacs the output in the xterm should > look like below. The WRITE, READ, and DISPATCH lines are the log > messages. Just send us the entire output in the xterm. Okay. That was painful. I couldn't figure out a way to redirect the xterm output without nuking the interactive shell in cmucl, so I had to cut and paste with the scroll wheel: ; Loading #p"/home/jcunningham/.cmucl-init". CMU Common Lisp CVS release-19a 19a-release-20040728 + minimal debian patches, running on apollo.olympus.net With core: /usr/lib/cmucl/lisp.core Dumped on: Sat, 2005-01-22 10:10:54-08:00 on apollo.olympus.net For support see http://www.cons.org/cmucl/support.html Send bug reports to http://bugs.gentoo.org Type (help) for help or (quit) to exit. Loaded subsystems: Python 1.1, target Intel x86 CLOS based on Gerd's PCL 2004/04/14 03:32:47 * (load "/usr/share/emacs/site-lisp/slime/swank-loader.lisp") (setq swank::*log-events* t) ; Loading #p"/usr/share/emacs/site-lisp/slime/swank-loader.lisp". ;; Loading #p"/usr/share/common-lisp/source/swank/swank.asd". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank-backend.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/nregex.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank-source-path-parser.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank-cmucl.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank.x86f". T * (swank:create-server :port 0) T * ;; Swank started at port: 46486. 46486 * WRITE: (:open-dedicated-output-stream 46488) READ: (:emacs-rex (swank:connection-info) nil t 1) DISPATCHING: (:EMACS-REX (SWANK:CONNECTION-INFO) NIL T 1) DISPATCHING: (:INDENTATION-UPDATE (("lisp:with-symbol" . 1) ("WITH-SYMBOL" . 1) ("lisp:prepare-for-fast-read-char" . 1) ("PREPARE-FOR-FAST-READ-CHAR" . 1) ("lisp:with-fop-stack" . 1) ("WITH-FOP-STACK" . 1) ("lisp:def-output-routines" . 1) ("DEF-OUTPUT-ROUTINES" . 1) ("lisp:input-wrapper" . 1) ("INPUT-WRAPPER" . 1) ("lisp:with-host" . 1) ("WITH-HOST" . 1) ("lisp:output-wrapper" . 1) ("OUTPUT-WRAPPER" . 1) ("lisp:with-read-buffer" . 1) ("WITH-READ-BUFFER" . 1) ("lisp:with-pathname" . 1) ("WITH-PATHNAME" . 1) ("lisp:enumerate-matches" . 1) ("ENUMERATE-MATCHES" . 1) ("lisp:prepare-for-fast-read-byte" . 1) ("PREPARE-FOR-FAST-READ-BYTE" . 1) ("lisp:maybe-sap-maybe-string" . 1) ("MAYBE-SAP-MAYBE-STRING" . 1) ("ext:without-package-locks" . 0) ("extensions:without-package-locks" . 0) ("WITHOUT-PACKAGE-LOCKS" . 0) ("ext:enumerate-search-list" . 1) ("extensions:enumerate-search-list" . 1) ("ENUMERATE-SEARCH-LIST" . 1) ("ext:def-source-context" . 2) ("extensions:def-source-context" . 2) ("DEF-SOURCE-CONTEXT" . 2) ("ext:do-info" . 1) ("extensions:do-info" . 1) ("DO-INFO" . 1) ("ext:with-float-traps-masked" . 1) ("extensions:with-float-traps-masked" . 1) ("WITH-FLOAT-TRAPS-MASKED" . 1) ("ext:define-function-name-syntax" . 2) ("extensions:define-function-name-syntax" . 2) ("DEFINE-FUNCTION-NAME-SYNTAX" . 2) ("ext:with-c-strvec" . 1) ("extensions:with-c-strvec" . 1) ("WITH-C-STRVEC" . 1) ("kernel:descend-into" . 1) ("DESCEND-INTO" . 1) ("kernel:define-type-method" . 2) ("DEFINE-TYPE-METHOD" . 2) ("kernel:number-dispatch" . 1) ("NUMBER-DISPATCH" . 1) ("kernel:def-type-translator" . 2) ("DEF-TYPE-TRANSLATOR" . 2) ("di:do-debug-function-variables" . 1) ("debug-internals:do-debug-function-variables" . 1) ("DO-DEBUG-FUNCTION-VARIABLES" . 1) ("di:do-debug-block-locations" . 1) ("debug-internals:do-debug-block-locations" . 1) ("DO-DEBUG-BLOCK-LOCATIONS" . 1) ("di:do-debug-function-blocks" . 1) ("debug-internals:do-debug-function-blocks" . 1) ("DO-DEBUG-FUNCTION-BLOCKS" . 1) ("vm:with-tn@fp-top" . 1) ("x86:with-tn@fp-top" . 1) ("WITH-TN@FP-TOP" . 1) ("vm:break-cases" . 1) ("x86:break-cases" . 1) ("BREAK-CASES" . 1) ("vm:with-empty-tn@fp-top" . 1) ("x86:with-empty-tn@fp-top" . 1) ("WITH-EMPTY-TN@FP-TOP" . 1) ("sys:with-enabled-interrupts" . 1) ("system:with-enabled-interrupts" . 1) ("WITH-ENABLED-INTERRUPTS" . 1) ("sys:with-interrupts" . 0) ("system:with-interrupts" . 0) ("WITH-INTERRUPTS" . 0) ("sys:without-hemlock" . 0) ("system:without-hemlock" . 0) ("WITHOUT-HEMLOCK" . 0) ("sys:without-interrupts" . 0) ("system:without-interrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("old-c:defoptimizer" . 2) ("compiler:defoptimizer" . 2) ("c:defoptimizer" . 2) ("DEFOPTIMIZER" . 2) ("old-c:def-primitive-translator" . 2) ("compiler:def-primitive-translator" . 2) ("c:def-primitive-translator" . 2) ("DEF-PRIMITIVE-TRANSLATOR" . 2) ("old-c:define-move-function" . 3) ("compiler:define-move-function" . 3) ("c:define-move-function" . 3) ("DEFINE-MOVE-FUNCTION" . 3) ("old-c:def-source-transform" . 2) ("compiler:def-source-transform" . 2) ("c:def-source-transform" . 2) ("DEF-SOURCE-TRANSFORM" . 2) ("old-c:def-ir1-translator" . 2) ("compiler:def-ir1-translator" . 2) ("c:def-ir1-translator" . 2) ("DEF-IR1-TRANSLATOR" . 2) ("old-c:def-vm-support-routine" . 2) ("compiler:def-vm-support-routine" . 2) ("c:def-vm-support-routine" . 2) ("DEF-VM-SUPPORT-ROUTINE" . 2) ("old-c:with-ir1-namespace" . 0) ("compiler:with-ir1-namespace" . 0) ("c:with-ir1-namespace" . 0) ("WITH-IR1-NAMESPACE" . 0) ("old-c:do-ir2-blocks" . 1) ("compiler:do-ir2-blocks" . 1) ("c:do-ir2-blocks" . 1) ("DO-IR2-BLOCKS" . 1) ("old-c:with-dynamic-extent" . 1) ("compiler:with-dynamic-extent" . 1) ("c:with-dynamic-extent" . 1) ("WITH-DYNAMIC-EXTENT" . 1) ("old-c:do-blocks-backwards" . 1) ("compiler:do-blocks-backwards" . 1) ("c:do-blocks-backwards" . 1) ("DO-BLOCKS-BACKWARDS" . 1) ("old-c:do-packed-tns" . 1) ("compiler:do-packed-tns" . 1) ("c:do-packed-tns" . 1) ("DO-PACKED-TNS" . 1) ("old-c:do-nodes-backwards" . 1) ("compiler:do-nodes-backwards" . 1) ("c:do-nodes-backwards" . 1) ("DO-NODES-BACKWARDS" . 1) ("old-c:do-blocks" . 1) ("compiler:do-blocks" . 1) ("c:do-blocks" . 1) ("DO-BLOCKS" . 1) ("old-c:do-sc-pairs" . 1) ("compiler:do-sc-pairs" . 1) ("c:do-sc-pairs" . 1) ("DO-SC-PAIRS" . 1) ("old-c:multiple-value-pop-eval-stack" . 1) ("compiler:multiple-value-pop-eval-stack" . 1) ("c:multiple-value-pop-eval-stack" . 1) ("MULTIPLE-VALUE-POP-EVAL-STACK" . 1) ("old-c:define-modular-fun-optimizer" . 2) ("compiler:define-modular-fun-optimizer" . 2) ("c:define-modular-fun-optimizer" . 2) ("DEFINE-MODULAR-FUN-OPTIMIZER" . 2) ("old-c:with-debugger-info" . 1) ("compiler:with-debugger-info" . 1) ("c:with-debugger-info" . 1) ("WITH-DEBUGGER-INFO" . 1) ("old-c:do-uses" . 1) ("compiler:do-uses" . 1) ("c:do-uses" . 1) ("DO-USES" . 1) ("old-c:zap-in" . 1) ("compiler:zap-in" . 1) ("c:zap-in" . 1) ("ZAP-IN" . 1) ("old-c:with-debug-counters" . 0) ("compiler:with-debug-counters" . 0) ("c:with-debug-counters" . 0) ("WITH-DEBUG-COUNTERS" . 0) ("old-c:do-live-tns" . 1) ("compiler:do-live-tns" . 1) ("c:do-live-tns" . 1) ("DO-LIVE-TNS" . 1) ("old-c:with-byte-specifier" . 1) ("compiler:with-byte-specifier" . 1) ("c:with-byte-specifier" . 1) ("WITH-BYTE-SPECIFIER" . 1) ("old-c:do-nodes" . 1) ("compiler:do-nodes" . 1) ("c:do-nodes" . 1) ("DO-NODES" . 1) ("old-c:with-unbounded-interval-on-error" . 1) ("compiler:with-unbounded-interval-on-error" . 1) ("c:with-unbounded-interval-on-error" . 1) ("WITH-UNBOUNDED-INTERVAL-ON-ERROR" . 1) ("old-c:do-environment-ir2-blocks" . 1) ("compiler:do-environment-ir2-blocks" . 1) ("c:do-environment-ir2-blocks" . 1) ("DO-ENVIRONMENT-IR2-BLOCKS" . 1) ("fwrappers:define-fwrapper" . 2) ("DEFINE-FWRAPPER" . 2) ("fwrappers:do-fwrappers" . 1) ("DO-FWRAPPERS" . 1) ("conditions:with-keyword-pairs" . 1) ("WITH-KEYWORD-PAIRS" . 1) ("alien:with-alien" . 1) ("WITH-ALIEN" . 1) ("alien:with-auxiliary-alien-types" . 0) ("WITH-AUXILIARY-ALIEN-TYPES" . 0) ("alien:def-alien-type-translator" . 2) ("DEF-ALIEN-TYPE-TRANSLATOR" . 2) ("walker:walker-environment-bind" . 1) ("WALKER-ENVIRONMENT-BIND" . 1) ("walker:with-augmented-environment" . 1) ("WITH-AUGMENTED-ENVIRONMENT" . 1) ("walker:with-new-definition-in-environment" . 1) ("WITH-NEW-DEFINITION-IN-ENVIRONMENT" . 1) ("pp:with-pretty-stream" . 1) ("pretty-print:with-pretty-stream" . 1) ("WITH-PRETTY-STREAM" . 1) ("mp:with-timeout" . 1) ("multiprocessing:with-timeout" . 1) ("WITH-TIMEOUT" . 1) ("mp:without-scheduling" . 0) ("multiprocessing:without-scheduling" . 0) ("WITHOUT-SCHEDULING" . 0) ("mp:with-lock-held" . 1) ("multiprocessing:with-lock-held" . 1) ("WITH-LOCK-HELD" . 1) ("ansi-loop:with-loop-list-collection-head" . 1) ("WITH-LOOP-LIST-COLLECTION-HEAD" . 1) ("ansi-loop:with-minimax-value" . 1) ("WITH-MINIMAX-VALUE" . 1) ("new-assem:define-instruction-macro" . 2) ("DEFINE-INSTRUCTION-MACRO" . 2) ("new-assem:assemble" . 1) ("ASSEMBLE" . 1) ("new-assem:without-scheduling" . 1) ("WITHOUT-SCHEDULING" . 1) ("old-c:do-elements" . 1) ("compiler:do-elements" . 1) ("c:do-elements" . 1) ("DO-ELEMENTS" . 1) ("new-assem:note-dependencies" . 1) ("NOTE-DEPENDENCIES" . 1) ("wire:remote" . 1) ("REMOTE" . 1) ("disassem:with-cached-function" . 1) ("WITH-CACHED-FUNCTION" . 1) ("profile:with-spacereport" . 1) ("WITH-SPACEREPORT" . 1) ("pcl:with-eq-hash-table" . 1) ("WITH-EQ-HASH-TABLE" . 1) ("pcl:with-local-cache-functions" . 1) ("WITH-LOCAL-CACHE-FUNCTIONS" . 1) ("pcl:fast-lexical-method-functions" . 1) ("FAST-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:do-pv-tables" . 1) ("DO-PV-TABLES" . 1) ("pcl:with-hash-table" . 1) ("WITH-HASH-TABLE" . 1) ("pcl:pv-binding1" . 1) ("PV-BINDING1" . 1) ("pcl:bind-args" . 1) ("BIND-ARGS" . 1) ("pcl:bind-fast-lexical-method-macros" . 1) ("BIND-FAST-LEXICAL-METHOD-MACROS" . 1) ("pcl:with-dfun-wrappers" . 3) ("WITH-DFUN-WRAPPERS" . 3) ("pcl:dfun-miss" . 1) ("DFUN-MISS" . 1) ("pcl:with-pcl-lock" . 0) ("WITH-PCL-LOCK" . 0) ("pcl:define-declaration" . 2) ("DEFINE-DECLARATION" . 2) ("pcl:do-pv-calls" . 1) ("DO-PV-CALLS" . 1) ("pcl:bind-simple-lexical-method-macros" . 1) ("BIND-SIMPLE-LEXICAL-METHOD-MACROS" . 1) ("pcl:pv-binding" . 1) ("PV-BINDING" . 1) ("pcl:do-pv-slots" . 1) ("DO-PV-SLOTS" . 1) ("pcl:simple-lexical-method-functions" . 1) ("SIMPLE-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:doplist" . 2) ("DOPLIST" . 2) ("pcl:bind-lexical-method-functions" . 1) ("BIND-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:modify-cache" . 1) ("MODIFY-CACHE" . 1) ("mk:with-tell-user" . 1) ("make:with-tell-user" . 1) ("WITH-TELL-USER" . 1) ("asdf:defsystem" . 1) ("DEFSYSTEM" . 1) ("swank-backend:defimplementation" . 2) ("DEFIMPLEMENTATION" . 2) ("swank-backend:safe-definition-finding" . 0) ("SAFE-DEFINITION-FINDING" . 0) ("swank-backend:with-struct" . 2) ("WITH-STRUCT" . 2) ("swank-backend:with-compilation-hooks" . 1) ("WITH-COMPILATION-HOOKS" . 1) ("swank:with-io-redirection" . 1) ("WITH-IO-REDIRECTION" . 1) ("swank:with-temp-package" . 1) ("WITH-TEMP-PACKAGE" . 1) ("swank:with-connection" . 1) ("WITH-CONNECTION" . 1) ("swank:with-reader-error-handler" . 1) ("WITH-READER-ERROR-HANDLER" . 1) ("swank:without-interrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("swank:with-buffer-syntax" . 1) ("WITH-BUFFER-SYNTAX" . 1) ("swank:defslimefun" . 2) ("DEFSLIMEFUN" . 2) ("swank:with-describe-settings" . 1) ("WITH-DESCRIBE-SETTINGS" . 1))) WRITE: (:indentation-update (("lisp:with-symbol" . 1) ("WITH-SYMBOL" . 1) ("lisp:prepare-for-fast-read-char" . 1) ("PREPARE-FOR-FAST-READ-CHAR" . 1) ("lisp:with-fop-stack" . 1) ("WITH-FOP-STACK" . 1) ("lisp:def-output-routines" . 1) ("DEF-OUTPUT-ROUTINES" . 1) ("lisp:input-wrapper" . 1) ("INPUT-WRAPPER" . 1) ("lisp:with-host" . 1) ("WITH-HOST" . 1) ("lisp:output-wrapper" . 1) ("OUTPUT-WRAPPER" . 1) ("lisp:with-read-buffer" . 1) ("WITH-READ-BUFFER" . 1) ("lisp:with-pathname" . 1) ("WITH-PATHNAME" . 1) ("li sp:enumerate-matches" . 1) ("ENUMERATE-MATCHES" . 1) ("lisp:prepare-for-fast-read-byte" . 1) ("PREPARE-FOR-FAST-READ-BYTE" . 1) ("lisp:maybe-sap-maybe-string" . 1) ("MAYBE-SAP-MAYBE-STRING" . 1) ("ext:without-package-locks" . 0) ("extensions:without-package-locks" . 0) ("WITHOUT-PACKAGE-LOCKS" . 0) ("ext:enumerate-search-list" . 1) ("extensions:enumerate-search-list" . 1) ("ENUMERATE-SEARCH-LIST" . 1) ("ext:def-source-context" . 2) ("extensions:def-source-context" . 2) ("DEF-SOURCE-CONTEXT" . 2) ("ext:do-info" . 1) ("extensions:do-info" . 1) ("DO-INFO" . 1) ("ext:with-float-traps-masked" . 1) ("extensions:with-float-traps-masked" . 1) ("WITH-FLOAT-TRAPS-MASKED" . 1) ("ext:define-function-name-syntax" . 2) ("extensions:define-function-name-syntax" . 2) ("DEFINE-FUNCTION-NAME-SYNTAX" . 2) ("ext:with-c-strvec" . 1) ("extensions:with-c-strvec" . 1) ("WITH-C-STRVEC" . 1) ("kernel:descend-into" . 1) ("DESCEND-INTO" . 1) ("kernel:define-type-method" . 2) ("DEFINE-TYPE-METHOD" . 2) ("kernel:number-dispatch" . 1) ("NUMBER-DISPATCH" . 1) ("kernel:def-type-translator" . 2) ("DEF-TYPE-TRANSLATOR" . 2) ("di:do-debug-function-variables" . 1) ("debug-internals:do-debug-function-variables" . 1) ("DO-DEBUG-FUNCTION-VARIABLES" . 1) ("di:do-debug-block-locations" . 1) ("debug-internals:do-debug-block-locations" . 1) ("DO-DEBUG-BLOCK-LOCATIONS" . 1) ("di:do-debug-function-blocks" . 1) ("debug-internals:do-debug-function-blocks" . 1) ("DO-DEBUG-FUNCTION-BLOCKS" . 1) ("vm:with-tn@fp-top" . 1) ("x86:with-tn@fp-top" . 1) ("WITH-TN@FP-TOP" . 1) ("vm:break-cases" . 1) ("x86:break-cases" . 1) ("BREAK-CASES" . 1) ("vm:with-empty-tn@fp-top" . 1) ("x86:with-empty-tn@fp-top" . 1) ("WITH-EMPTY-TN@FP-TOP " . 1) ("sys:with-enabled-interrupts" . 1) ("system:with-enabled-interrupts" . 1) ("WITH-ENABLED-INTERRUPTS" . 1) ("sys:with-interrupts" . 0) ("system:with-interrupts" . 0) ("WITH-INTERRUPTS" . 0) ("sys:without-hemlock" . 0) ("system:without-hemlock" . 0) ("WITHOUT-HEMLOCK" . 0) ("sys:without-interrupts" . 0) ("system:without-interrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("old-c:defoptimizer" . 2) ("compiler:defoptimizer" . 2) ("c:defoptimizer" . 2) ("DEFOPTIMIZER" . 2) ("old-c:def-primitive-translator" . 2) ("compiler:def-primitive-translator" . 2) ("c:def-primitive-translator" . 2) ("DEF-PRIMITIVE-TRANSLATOR" . 2) ("old-c:define-move-function" . 3) ("compiler:define-move-function" . 3) ("c:define-move-function" . 3) ("DEFINE-MOVE-FUNCTION" . 3) ("old-c:def-source-transform" . 2) ("compiler:def-source-transform" . 2) ("c:def-source-transform" . 2) ("DEF-SOURCE-TRANSFORM" . 2) ("old-c:def-ir1-translator" . 2) ("compiler:def-ir1-translator" . 2) ("c:def-ir1-translator" . 2) ("DEF-IR1-TRANSLATOR" . 2) ("old-c:def-vm-support-routine" . 2) ("compiler:def-vm-support-routine" . 2) ("c:def-vm-support-routine" . 2) ("DEF-VM-SUPPORT-ROUTINE" . 2) ("old-c:with-ir1-namespace" . 0) ("compiler:with-ir1-namespace" . 0) ("c:with-ir1-namespace" . 0) ("WITH-IR1-NAMESPACE" . 0) ("old-c:do-ir2-blocks" . 1) ("compiler:do-ir2-blocks" . 1) ("c:do-ir2-blocks" . 1) ("DO-IR2-BLOCKS" . 1) ("old-c:with-dynamic-extent" . 1) ("compiler:with-dynamic-extent" . 1) ("c:with-dynamic-extent" . 1) ("WITH-DYNAMIC-EXTENT" . 1) ("old-c:do-blocks-backwards" . 1) ("compiler:do-blocks-backwards" . 1) ("c:do-blocks-backwards" . 1) ("DO-BLOCKS-BACKWARDS" . 1) ("old-c:do-packed-tns" . 1) ("compiler:do-packed-tns" . 1) ("c:do-packed-tns" . 1) ("DO-PACKED-TNS" . 1) ("old-c:do-nodes-backwards" . 1) ("compiler:do-nodes-backwards" . 1) ("c:do-nodes-backwards" . 1) ("DO-NODES-BACKWARDS" . 1) ("old-c:do-blocks" . 1) ("compiler:do-blocks" . 1) ("c:do-blocks" . 1) ("DO-BLOCKS" . 1) ("old-c:do-sc-pairs" . 1) ("compiler:do-sc-pairs" . 1) ("c:do-sc-pairs" . 1) ("DO-SC-PAIRS" . 1) ("old-c:multiple-value-pop-eval-stack" . 1) ("compiler:multiple-value-pop-eval-stack" . 1) ("c:multiple-value-pop-eval-stack" . 1) ("MULTIPLE-VALUE-POP-EVAL-STACK" . 1) ("old-c:define-modular-fun-optimizer" . 2) ("compiler:define-modular-fun-optimizer" . 2) ("c:define-modular-fun-optimizer" . 2) ("DEFINE-MODULAR-FUN-OPTIMIZER" . 2) ("old-c:with-debugger-info" . 1) ("compiler:with-debugger-info" . 1) ("c:with-debugger-info" . 1) ("WITH-DEBUGGER-INFO" . 1) ("old-c:do-uses" . 1) ("compiler:do-uses" . 1) ("c:do-uses" . 1) ("DO-USES" . 1) ("old-c:zap-in" . 1) ("compiler:zap-in" . 1) ("c:zap-in" . 1) ("ZAP-IN" . 1) ("old-c:with-debug-counters" . 0) ("compiler:with-debug-counters" . 0) ("c:with-debug-counters" . 0) ("WITH-DEBUG-COUNTERS" . 0) ("old-c:do-live-tns" . 1) ("compiler:do-live-tns" . 1) ("c:do-live-tns" . 1) ("DO-LIVE-TNS" . 1) ("old-c:with-byte-specifier" . 1) ("compiler:with-byte-specifier" . 1) ("c:with-byte-specifier" . 1) ("WITH-BYTE-SPECIFIER" . 1) ("old-c:do-nodes" . 1) ("compiler:do-nodes" . 1) ("c:do-nodes" . 1) ("DO-NODES" . 1) ("old-c:with-unbounded-interval-on-error" . 1) ("compiler:with-unbounded-interval-on-error" . 1) ("c:with-unbounded-interval-on-error" . 1) ("WITH-UNBOUNDED-INTERVAL-ON-ERROR" . 1) ("old-c:do-environment-ir2-blocks" . 1) ("compiler:do-environment-ir2-blocks" . 1) ("c:do-environment-ir 2-blocks" . 1) ("DO-ENVIRONMENT-IR2-BLOCKS" . 1) ("fwrappers:define-fwrapper" . 2) ("DEFINE-FWRAPPER" . 2) ("fwrappers:do-fwrappers" . 1) ("DO-FWRAPPERS" . 1) ("conditions:with-keyword-pairs" . 1) ("WITH-KEYWORD-PAIRS" . 1) ("alien:with-alien" . 1) ("WITH-ALIEN" . 1) ("alien:with-auxiliary-alien-types" . 0) ("WITH-AUXILIARY-ALIEN-TYPES" . 0) ("alien:def-alien-type-translator" . 2) ("DEF-ALIEN-TYPE-TRANSLATOR" . 2) ("walker:walker-environment-bind" . 1) ("WALKER-ENVIRONMENT-BIND" . 1) ("walker:with-augmented-environment" . 1) ("WITH-AUGMENTED-ENVIRONMENT" . 1) ("walker:with-new-definition-in-environment" . 1) ("WITH-NEW-DEFINITION-IN-ENVIRONMENT" . 1) ("pp:with-pretty-stream" . 1) ("pretty-print:with-pretty-stream" . 1) ("WITH-PRETTY-STREAM" . 1) ("mp:with-timeout" . 1) ("multiprocessing:with-timeout" . 1) ("WITH-TIMEOUT" . 1) ("mp:without-scheduling" . 0) ("multiprocessing:without-scheduling" . 0) ("WITHOUT-SCHEDULING" . 0) ("mp:with-lock-held" . 1) ("multiprocessing:with-lock-held" . 1) ("WITH-LOCK-HELD" . 1) ("ansi-loop:with-loop-list-collection-head" . 1) ("WITH-LOOP-LIST-COLLECTION-HEAD" . 1) ("ansi-loop:with-minimax-value" . 1) ("WITH-MINIMAX-VALUE" . 1) ("new-assem:define-instruction-macro" . 2) ("DEFINE-INSTRUCTION-MACRO" . 2) ("new-assem:assemble" . 1) ("ASSEMBLE" . 1) ("new-assem:without-scheduling" . 1) ("WITHOUT-SCHEDULING" . 1) ("old-c:do-elements" . 1) ("compiler:do-elements" . 1) ("c:do-elements" . 1) ("DO-ELEMENTS" . 1) ("new-assem:note-dependencies" . 1) ("NOTE-DEPENDENCIES" . 1) ("wire:remote" . 1) ("REMOTE" . 1) ("disassem:with-cached-function" . 1) ("WITH-CACHED-FUNCTION" . 1) ("profile:with-spacereport" . 1) ("WITH-SPACEREPORT" . 1) ("pcl:with-eq-hash- table" . 1) ("WITH-EQ-HASH-TABLE" . 1) ("pcl:with-local-cache-functions" . 1) ("WITH-LOCAL-CACHE-FUNCTIONS" . 1) ("pcl:fast-lexical-method-functions" . 1) ("FAST-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:do-pv-tables" . 1) ("DO-PV-TABLES" . 1) ("pcl:with-hash-table" . 1) ("WITH-HASH-TABLE" . 1) ("pcl:pv-binding1" . 1) ("PV-BINDING1" . 1) ("pcl:bind-args" . 1) ("BIND-ARGS" . 1) ("pcl:bind-fast-lexical-method-macros" . 1) ("BIND-FAST-LEXICAL-METHOD-MACROS" . 1) ("pcl:with-dfun-wrappers" . 3) ("WITH-DFUN-WRAPPERS" . 3) ("pcl:dfun-miss" . 1) ("DFUN-MISS" . 1) ("pcl:with-pcl-lock" . 0) ("WITH-PCL-LOCK" . 0) ("pcl:define-declaration" . 2) ("DEFINE-DECLARATION" . 2) ("pcl:do-pv-calls" . 1) ("DO-PV-CALLS" . 1) ("pcl:bind-simple-lexical-method-macros" . 1) ("BIND-SIMPLE-LEXICAL-METHOD-MACROS" . 1) ("pcl:pv-binding" . 1) ("PV-BINDING" . 1) ("pcl:do-pv-slots" . 1) ("DO-PV-SLOTS" . 1) ("pcl:simple-lexical-method-functions" . 1) ("SIMPLE-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:doplist" . 2) ("DOPLIST" . 2) ("pcl:bind-lexical-method-functions" . 1) ("BIND-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:modify-cache" . 1) ("MODIFY-CACHE" . 1) ("mk:with-tell-user" . 1) ("make:with-tell-user" . 1) ("WITH-TELL-USER" . 1) ("asdf:defsystem" . 1) ("DEFSYSTEM" . 1) ("swank-backend:defimplementation" . 2) ("DEFIMPLEMENTATION" . 2) ("swank-backend:safe-definition-finding" . 0) ("SAFE-DEFINITION-FINDING" . 0) ("swank-backend:with-struct" . 2) ("WITH-STRUCT" . 2) ("swank-backend:with-compilation-hooks" . 1) ("WITH-COMPILATION-HOOKS" . 1) ("swank:with-io-redirection" . 1) ("WITH-IO-REDIRECTION" . 1) ("swank:with-temp-package" . 1) ("WITH-TEMP-PACKAGE" . 1) ("swank:with-connection" . 1) ("WITH-CONNECTION" . 1) ("swank:with-reader-error-handler" . 1) ("WITH-READER-ERROR-HANDLER" . 1) ("swank:without-in terrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("swank:with-buffer-syntax" . 1) ("WITH-BUFFER-SYNTAX" . 1) ("swank:defslimefun" . 2) ("DEFSLIMEFUN" . 2) ("swank:with-describe-settings" . 1) ("WITH-DESCRIBE-SETTINGS" . 1))) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK (15086 "CMU Common Lisp" "cmucl" (:ASDF :MK-DEFSYSTEM :COMMON-LISP-CONTROLLER :GERDS-PCL :PCL-STRUCTURES :PORTABLE-COMMONLOOPS :PCL :CMU19 :CMU19A :PYTHON :CONSERVATIVE-FLOAT-TYPE :MODULAR-ARITH :MP :X86 :LINKAGE-TABLE :RELATIVE-PACKAGE-NAMES :LINUX :GLIBC2 :UNIX :RANDOM-MT19937 :GENCGC :PENTIUM :I486 :HASH-NEW :HEAP-OVERFLOW-CHECK :STACK-CHECKING :COMMON :COMMON-LISP :ANSI-CL :IEEE-FLOATING-POINT :CMU))) 1) WRITE: (:return (:ok (15086 "CMU Common Lisp" "cmucl" (:asdf :mk-defsystem :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu))) 1) ;; Connection to Emacs lost. ;; [End-of-File on #<Stream for descriptor 7>] Not very illuminating (to me). The last two lines are what happened when I pressed C-M-x in emacs after connecting it to the server. > Another question: When you connect to the server, Emacs should pop up > a *slime-repl* buffer. Do ordinary commands (e.g. typing `10 RET' or > tab-completion with `c TAB') work in that buffer? When you type RET > in the *slime-repl* buffer you should see a log message in the xterm. > > > * (load "/tmp/slime-1.0/swank-loader") > > ; Loading #p"/tmp/slime-1.0/swank-loader.lisp". > ;; Loading #p"/raid/home/helmut/.slime/fasl/cmu-Snapshot 2004-08/swank-backend.x8 > [... some more stuff ...] > t > * (setq swank:*log-events* t) > > t > * (swank:create-server :port 0) > ;; Swank started at port: 35261. > > 35261 > * WRITE: (:open-dedicated-output-stream 35263) > READ: (:emacs-rex (swank:connection-info) nil t 1) > > DISPATCHING: (:emacs-rex (swank:connection-info) nil t 1) > DISPATCHING: (:indentation-update > (("def-output-routines" . 1) ("maybe-sap-maybe-string" . 1) > [ ... lots of debug output ...] > READ: (:emacs-rex (swank:interactive-eval "(+ 1 2)") nil t 7) > > DISPATCHING: (:emacs-rex (swank:interactive-eval "(+ 1 2)") nil t 7) > DISPATCHING: (:return #<Process Initial {58004645}> (:ok "3") 7) > WRITE: (:return (:ok "3") 7) Yes, this seems to be working properly. I can use the interpeter in the *slime-repl[1]* buffer just fine. And stuff happens over in the xterm with the server. If I hit RET by itself, I get: DISPATCHING: (:EMACS-REX (SWANK:LISTENER-EVAL " ") "COMMON-LISP-USER" :REPL-THREAD 5) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK "; No value") 5) WRITE: (:return (:ok "; No value") 5) If I do something like (print "Hello World!"), it works, and the xterm prints: DISPATCHING: (:EMACS-REX (SWANK:ARGLIST-FOR-ECHO-AREA '("print")) "COMMON-LISP-USER" :REPL-THREAD 6) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK "(print object &optional stream)") 6) WRITE: (:return (:ok "(print object &optional stream)") 6) READ: (:emacs-rex (swank:listener-eval "(print \"Hello World!\") ") "COMMON-LISP-USER" :repl-thread 7) DISPATCHING: (:EMACS-REX (SWANK:LISTENER-EVAL "(print \"Hello World!\") ") "COMMON-LISP-USER" :REPL-THREAD 7) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK "\"Hello World!\"") 7) WRITE: (:return (:ok "\"Hello World!\"") 7) --Jeff

3 4

[slime-devel] Trouble getting slime to work on Mac OS X
by David Meredith 23 Jan '05

23 Jan '05

I'm using GNU Emacs 21.2.1 on Mac OS X 10.3.7. I'm trying to get SLIME 1.0 to work with either CMUCL or SBCL. I load slime with M-x slime and I get the following message in the *inferior-lisp* buffer: ===========MESSAGE STARTS HERE=============== CMU Common Lisp 19a+ Darwin/Exp 2004-07-25-090, running on Vigor10 With core: /usr/local/lib/cmucl/lib/lisp.core Dumped on: Sun, 2004-07-25 20:53:38+01:00 on PMSF-PowerBook.local See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target PowerPC CLOS based on Gerd's PCL 2004/04/14 03:32:47 * ; Loading #p"/Users/dave/Documents/slime-1.0/swank-loader.lisp". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank-backend.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/nregex.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank-source-path-parser.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank-cmucl.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank.ppcf". Warning: These Swank interfaces are unimplemented: (ALL-THREADS FIND-THREAD INTERRUPT-THREAD RECEIVE RESTART-FRAME RETURN-FROM-FRAME SEND SPAWN THREAD-ID) T * ;; Swank started at port: 49577. 49577 * Error in function CREATE-INET-LISTENER: Error binding socket to port 0: Can't assign requested address [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) (CREATE-INET-LISTENER 0 :STREAM :HOST 2130706433 ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/internet.lisp. 0] ======MESSAGE ENDS HERE========== Can anyone please tell me what's going wrong? Cheers, Dave Meredith

3 2

[slime-devel] C-M-x kills emacs
by Jeffrey Cunningham 22 Jan '05

22 Jan '05

Hi; I just setup SLIME by following the slime.pdf document. I was trying out the various key chords and find that C-M-x, which is supposed to evaluate the top-level form. Instead, it kills emacs - instantly. Any idea why? And what I can do to fix it? To rule out .emacs misconfiguration, I tried a temporary one consisting of only the four SLIME configuration lines: (setq inferior-lisp-program "/usr/bin/lisp") (add-to-list 'load-path "/usr/share/emacs/site-lisp/slime") (require 'slime) (slime-setup) This made no difference. I'm running emacs 21.3.1 on a Gentoo Linux system (2.6.9 kernel, xorg-x11 6.8.0-r3), and trying to use cmucl 18e-r4 (that's what it says). Here's the *Messages* after it loads: Loading documentation (source)... Loading cl-macs...done Loading documentation (source)...done Loading compile...done Loading lmenu...done Loading generic (compiled; note, source file is newer)...done Loading xclass-menubar...done Loading xwin-mouse...done Loading cb_mode...done Loading xcb2...done Loading who-calls (source)...done Loading newClass...done Loading c++-ast (compiled; note, source file is newer)...done Loading generic (compiled; note, source file is newer)...done Loading mutt...done Loading disp-table...done Loading iso-transl...done Use C-u M-x make-directory RET RET to create directory and its parents Loading cl-extra...done Loading cl-seq...done Loading easy-mmode...done Loading edmacro...done Loading byte-opt...done Loading server...done All done, jcunningham. For information about the GNU Project and its goals, type C-h C-p. Polling "/tmp/slime.742".. (Abort with `M-x slime-abort-connection'.) [2 times] Connecting to Swank on port 37069.. Initial handshake... Loading animate...done Connected. Jcunningham, this could be the start of a beautiful program. (in-package package &rest noise) (compile-file source &key (output-file t) (error-file nil) (trace-file nil) (error-output t) (load nil) (external-format :default) ((verbose *compile-verbose*) *compile-verbose*) ((print *compile-print*) *compile-print*) ((progress *compile-progress*) *compile-progress*) ((block-compile *block-compile-argument*) *block-compile-default*) ((entry-points *entry-points*) nil) ((byte-compile *byte-compile*) *byte-compile-default*)) Mark set Loading view...done Mark set [4 times] isearch-abort: Quit Making completion list... Mark set Making completion list... [2 times] Quit [2 times] Making completion list... [3 times] Mark set TIA --Jeff

4 9

[slime-devel] how do I invoke the debugger and step through a function?
by ramb＠sonic.net 21 Jan '05

21 Jan '05

I've created a function (defun tester () ...) that does almost what I want - but its not totally correct. I would like to use the slime debugger to start this function and single step through its various parts to see where the mistake is. How do I do that with slime? I am using slime-1.0 and cmucl-19a. Thanks for any help. -Ram

2 3

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 20 Jan '05

20 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.602 slime/ChangeLog:1.604 --- slime/ChangeLog:1.602 Wed Jan 19 10:32:16 2005 +++ slime/ChangeLog Thu Jan 20 12:05:05 2005 @@ -1,3 +1,19 @@ +2005-01-20 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (parse-symbol): Don't break if the package doesn't + exist. Reported by Lynn Quam. + +2005-01-20 Ian Eslick <eslick(a)csail.mit.edu> + + * swank-allegro.lisp (restart-frame): Handle frames with arguments + better. + +2005-01-20 Edi Weitz <edi(a)agharta.de> + + * swank-allegro.lisp (handle-undefined-functions-warning): Prevent + breakage if the undefined function is called at multiple + locations. + 2005-01-19 Helmut Eller <heller(a)common-lisp.net> * swank-gray.lisp (stream-unread-char): If the char argument

1 0

[slime-devel] slime.el package name errors
by Lynn Quam 20 Jan '05

20 Jan '05

I find that slime is very unforgiving when one accidently types a nonexistent package name into a Lisp slime buffer. In CMUCL, Lisp enters the debugger, and slime selects the *sldb* buffer with the message: Type-error in LISP::PACKAGE-OR-LOSE: "" is not of type PACKAGE [Condition of type TYPE-ERROR] Restarts: 0: [CONTINUE] Make this package. ... Backtrace: 0: (LISP::PACKAGE-OR-LOSE "FEATURE-SET-PATHNAMES-CME") 1: (FIND-SYMBOL "*RADIUS-SITE-GLUE2*" "FEATURE-SET-PATHNAMES-CME") 2: ("DEFSLIMEFUN VARIABLE-DESC-FOR-ECHO-AREA") Locals: SWANK::SYM = #:INVALID SWANK::VARIABLE-NAME = #:INVALID [No catch-tags] 3: (SWANK:VARIABLE-DESC-FOR-ECHO-AREA "feature-set-pathnames-cme::*radius-site-glue2*") I appear to be unable to correct the mistake by editing the erroneous package name, because as soon as I switch to the Lisp slime buffer and position "point" at the erroneous package name, the error reoccurs placing me back in the *sldb* buffer. The same problem also occurs with slime and Allegro 6.2. Is there any simple fix to this problem?

2 1

[slime-devel] Patch for AllegroCL
by Edi Weitz 20 Jan '05

20 Jan '05

Here's a small patch for the AllegroCL backend. Without this patch it breaks for me if I invoke, say, slime-compile-and-load-file on the following file (defun foo (x) (bar x)) (defun quux (y) (bar y)) i.e. if there's more than one position where the undefined function is referenced. Maybe this is new in AllegroCL 7.0. Cheers, Edi.

2 2

[slime-devel] sldb frame restarts now work with non-null argument lists under Allegro
by Ian Eslick 20 Jan '05

20 Jan '05

I have filed a bug report with Franz to fix the incorrect implementation of the spec for 'debugger:frame-retry' that was causing the failure of frame restarts with arguments. I did find a workaround for this (highly annoying) problem. --------------------- ;;; XXX doesn't work for frames with arguments (defimplementation restart-frame (frame-number) (let ((frame (nth-frame frame-number))) (apply #'debugger:frame-retry (append (list frame (debugger:frame-function frame)) (cdr (debugger:frame-expression frame)))))) --------------------- The comment should be removed. This has been tested on keyword, optional and standard argument lists but may not work for all cases. Cheers, Ian

2 1

[slime-devel] Daily ChangeLog diff
by lgorrie＠common-lisp.net 19 Jan '05

19 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.600 slime/ChangeLog:1.602 --- slime/ChangeLog:1.600 Tue Jan 18 08:03:16 2005 +++ slime/ChangeLog Wed Jan 19 10:32:16 2005 @@ -1,10 +1,39 @@ +2005-01-19 Helmut Eller <heller(a)common-lisp.net> + + * swank-gray.lisp (stream-unread-char): If the char argument + doesn't match the contents in the buffer, ignore it and emit a + warning instead. + +2005-01-19 Utz-Uwe Haus <haus+slime(a)merkur.math.uni-magdeburg.de> + + * swank-cmucl.lisp (breakpoint): Add a slot for return values to + make return values inspectable in the debugger. + (signal-breakpoint): Initialize the new slot. + +2005-01-19 Matthias Koeppe <mkoeppe+slime(a)merkur.math.uni-magdeburg.de> + + * slime.el (slime-insert-arglist): Inserts a template for a + function call instead of the plain arglist; this makes a + difference for functions with optional and keyword arguments. + + * swank.lisp (arglist-to-template-string): New function. + (arglist-for-insertion): Use it + (decode-keyword-arg, decode-optional-arg): New functions. + +2005-01-19 Lars Magne Ingebrigtsen <larsi(a)gnus.org> + + * slime.el (slime-header-line-p): Customize variable to + enable/disable the header-line in the REPL. + 2005-01-18 Luke Gorrie <luke(a)synap.se> * slime.el (slime-complete-symbol*-fancy): New variable to enable extra bells and whistles with slime-complete-symbol*. Currently - controls whether to use arglists semantically. - (slime-complete-symbol*): Avoid displaying an arglist when the - minibuffer is active. + controls whether to use arglists semantically. Default is t. + (slime-complete-symbol*-fancy-bit): Factored out this function. + Only do "semantic" completion when the symbol is in + function-position, avoid interning argument names in Emacs, and + don't display arglists if the minibuffer is active. 2005-01-14 Luke Gorrie <luke(a)synap.se>

1 0

[slime-devel] Patch to make slime-insert-arglist more useful
by Matthias Koeppe 19 Jan '05

19 Jan '05

Please find below a patch that makes C-c C-s (slime-insert-arglist) much more useful. Instead of inserting a formal argument list, it inserts a template for a function call; this makes a difference for functions with optional and keyword arguments. After inserting the arguments, point is left on the first argument, like ILISP's C-u M-x arglist-lisp does; this allows editing the arguments easily. Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.443 diff -u -p -u -r1.443 slime.el --- slime.el 16 Dec 2004 22:24:41 -0000 1.443 +++ slime.el 17 Dec 2004 13:24:07 -0000 @@ -4227,7 +4227,17 @@ more than one space." "Insert the argument list for NAME behind the symbol point is currently looking at." (interactive (list (slime-read-symbol-name "Arglist of: "))) - (insert (slime-eval `(swank:arglist-for-insertion ',name)))) + (let ((arglist (slime-eval `(swank:arglist-for-insertion ',name)))) + (cond + ((eq arglist :not-available) + (error "Arglist not available")) + ((string-match "^(" arglist) + (insert " ") + (save-excursion + (insert (substring arglist 1)))) + (t + (save-excursion + (insert arglist)))))) (defun slime-get-arglist (symbol-name) "Return the argument list for SYMBOL-NAME." Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.272 diff -u -p -u -r1.272 swank.lisp --- swank.lisp 16 Dec 2004 21:16:50 -0000 1.272 +++ swank.lisp 17 Dec 2004 13:25:18 -0000 @@ -1143,17 +1143,108 @@ pretty printing of (function foo) as #'f (*print-length* 10) (*print-circle* t)) (format nil "~A => ~A" sym (symbol-value sym))))))) +(defun decode-keyword-arg (arg) + "Decode a keyword item of formal argument list. +Return three values: keyword, argument name, default arg." + (cond + ((symbolp arg) + (values (intern (symbol-name arg) keyword-package) + arg + nil)) + ((and (consp arg) + (consp (car arg))) + (values (caar arg) + (cadar arg) + (cadr arg))) + ((consp arg) + (values (intern (symbol-name (car arg)) keyword-package) + (car arg) + (cadr arg))) + (t + (error "Bad keyword item of formal argument list")))) +(progn + (assert (equal (multiple-value-list (decode-keyword-arg 'x)) '(:x x nil))) + (assert (equal (multiple-value-list (decode-keyword-arg '(x t))) '(:x x t))) + (assert (equal (multiple-value-list (decode-keyword-arg '((:x y)))) '(:x y nil))) + (assert (equal (multiple-value-list (decode-keyword-arg '((:x y) t))) '(:x y t)))) +(defun decode-optional-arg (arg) + "Decode an optional item of a formal argument list. +Return two values: argument name, default arg." + (etypecase arg + (symbol + (values arg nil)) + (list + (values (car arg) (cadr arg))))) +(progn + (assert (equal (multiple-value-list (decode-optional-arg 'x)) '(x nil))) + (assert (equal (multiple-value-list (decode-optional-arg '(x t))) '(x t)))) + +(defun arglist-to-template-string (arglist package) + "Print the list ARGLIST for insertion as a template for a function call." + (setq arglist (clean-arglist arglist)) + (etypecase arglist + (null "()") + (cons + (with-output-to-string (*standard-output*) + (with-standard-io-syntax + (let ((*package* package) (*print-case* :downcase) + (*print-pretty* t) (*print-circle* nil) (*print-readably* nil) + (*print-level* 10) (*print-length* 20)) + (pprint-logical-block (nil nil :prefix "(" :suffix ")") + (let ((mode nil)) + (loop + (let ((arg (pop arglist))) + (typecase arg + ((member &key &optional &rest &body) + (setq mode arg)) + (string + (princ arg) + (unless (null arglist) + (write-char #\space))) + (t + (case mode + (&key + (multiple-value-bind (keyword arg-symbol default-arg) + (decode-keyword-arg arg) + (declare (ignore default-arg)) + (write keyword) + (write-char #\space) + (princ arg-symbol))) + (&optional + (multiple-value-bind (arg-symbol default-arg) + (decode-optional-arg arg) + (declare (ignore default-arg)) + (write-char #\[) + (princ arg-symbol) + (write-char #\]))) + (&body + (pprint-newline :mandatory) + (princ arg) + (princ "...")) + (&rest + (princ arg) + (princ "...")) + (otherwise + (princ arg))) + (unless (null arglist) + (write-char #\space))))) + (when (null arglist) (return)) + (pprint-newline :fill)))))))))) + +(defun test-print-template (list string) + (string= (arglist-to-template-string list (find-package :swank)) string)) + (defslimefun arglist-for-insertion (name) (with-buffer-syntax () (cond ((valid-operator-name-p name) (let ((arglist (arglist (parse-symbol name)))) (etypecase arglist ((member :not-available) - " <not available>") + :not-available) (list - (arglist-to-string arglist *buffer-package*))))) + (arglist-to-template-string arglist *buffer-package*))))) (t - " <not available>")))) + :not-available)))) ;;;; Evaluation -- Matthias Köppe -- http://www.math.uni-magdeburg.de/~mkoeppe

2 2