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

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

11 Oct '08

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

4 5

[slime-devel] Operating on the swank readtable?
by Alberto Riva 17 Jan '08

17 Jan '08

Hello, I'm trying to define a few macro characters for use in the slime top-level, but I can't figure out where to put the SET-DISPATCH-MACRO-CHARACTER calls so that they affect the swank readtable instead of the default one. I've tried putting them both in my lisp initialization file and in .swank.lisp, but in both cases the macro character is defined in the initial readtable and not in the slime one (so it works in the *inferior-lisp* buffer, but not in the slime-repl buffer). Thanks! Alberto Riva University of Florida

2 2

[slime-devel] defining LISP functions in Emacs
by Joe Corneli 11 Jan '08

11 Jan '08

I want to create a variant of `defun' that takes arguments from Emacs and assembles a body to be evaluated by SLIME. It seemed to me that this macro definition w ould work: (defmacro ldefun (name arglist &rest body) `(defun ,name ,arglist (slime-eval (progn ,@body)))) For example, here is how it expands in a simple case: (macroexpand '(ldefun testslime (first second) (list first (+ 1 second)))) ;=> (defun testslime (first second) ;=> (slime-eval (progn (list first (+ 1 second))))) But that didn't turn out. In fact, even the `slime-eval' form just above does not work in a stand-alone fashion: (slime-eval (progn (list 2 (+ 1 6)))) Gives this error: Execution of a form compiled with errors. Form: (2 7) Whereas from the REPL, I get this behavior: CL-USER> (progn (list 2 (+ 1 6))) (2 7) So, I find this behavior surprising. Can anyone help me out? Note: I'm running Slime CVS from 2007-06-16 and SBCL 1.0.5.

3 3

[slime-devel] slime apparently mis-reporting closed connection
by Samium Gromoff 26 Oct '07

26 Oct '07

After well into the second decade of slime-disconnect/slime-connect loop iteration (interweaved with normal operation) the emacs side of slime stopped recognising connection status. I`m doing a slime-disconnect, restarting swank and slime-connect, however immediately after this either a slime-load-file or a (load ...) in slime repl result in a message "Connection closed." i have some time before i will have to reboot the machine, and until then i can provide various forensics upon request... regards, Samium Gromoff

5 5

[slime-devel] Inspector: inspect-bigger-piece and inspect-whole-thing broken.
by Madhu 23 Sep '07

23 Sep '07

Here are two test cases for exposing the bugs: ;; In ~/.swank.lisp: (setq SWANK::*SLIME-INSPECT-CONTENTS-LIMIT* 10) ;; ;; CASE I ;; (defvar *ht* (make-hash-table :test #'eql)) (loop for i below 20 do (setf (gethash i *ht*) (princ i))) Then M-x slime-inspect *ht* (C-c I *ht*) : The inspector window show: |Contents: |10 elements shown. Prompt for how many to inspect... |Inspect all 20 elements. Choosing either of these two (bigger pieces action and entering the value in the REPL) or inspect whole pieces action, does not change the contents displayed in the inspector window, i.e. the number of items displayed does not change. ;; ;; CASE II ;; (defvar *array* (make-array 100 :initial-element nil)) Then M-x slime-inspect *array* (C-c I *array*) The variable SWANK::*SLIME-INSPECT-CONTENTS-LIMIT* is not respected and the whole contents of the array is printed. I'm guessing the following Changelog entry may apply, but haven't checked or fixed the problem against HEAD. |2007-04-19 Tobias C. Rittweiler <tcr(a)freebits.de> | | * swank-backend.lisp (label-value-line): Add :newline as &key | argument; if true (the default) inserts a newline. | | * swank.lisp (inspect-for-emacs-list): Don't add a newline after | the last value of the list. | -- Madhu

1 2

[slime-devel] Autodoc mode and the typeout frame
by Geoff Wozniak 01 Sep '07

01 Sep '07

When the typeout frame is active, autodoc output is sent to the frame using a call to SLIME-TYPEOUT-MESSAGE in SLIME-AUTODOC-MESSAGE. In turn, SLIME-TYPEOUT-MESSAGE applies FORMAT to the string to display it. This causes a fair number of errors when the string contains the % character and eventually autodoc-mode shuts off. I've attached a patch to fix it against the latest version. All it does is call REPLACE-REGEXP-IN-STRING before the string is sent to SLIME-TYPEOUT-MESSAGE. I'm not convinced this solution is at all elegant, but I'm not familiar with the architecture of Slime enough to know what a better solution might be. It's a hack since it's not terribly robust: right now no format arguments are passed to SLIME-TYPEOUT-MESSAGE but if they are, then the hack provided (likely) won't work. Anyway, this patch solves my immediate problem and I thought it was a point worth bringing up. And am I one of the only people to use a typeout frame? :) -- Geoff

4 5

[slime-devel] Evaluate forms from within Lisp buffers and displaying the result in the REPL
by Rainer Joswig 26 Aug '07

26 Aug '07

Hi, I'm a bit used to the behavior of MCL when it comes to Lisp buffers and listeners. Maybe SLIME developers know how to achieve a similar behavior or would like to provide something similar. MCL allowed multiple Lisp text editor windows and listener windows. If there are multiple listeners one is the front most. If the cursor is behind a Lisp form in a Lisp editor window, one can press Enter (or control-return) and the form will be enqueued into the REPL of the front most listener. Doing this in a listener, the form will be displayed at the prompt and enqueued in the listener's REPL. Pressing Enter only has the effect that the form and the result is shown in the listener. In the Editor window, nothing happens (no cursor moved, no character entered, no window focus changed). The listener REPL gets the forms from its queue and displays the form and the result at the end of the current buffer. This way you get interaction histories in the listener. Currently SLIME lets me evaluate a form in a text buffer and the form gets printed into the listener and the result gets printed in the mini-buffer. I can see then in the listener the history of evaluated forms, but not the history of results. Additionally the form will be printed with additional characters before and after. SLIME displays several forms evaluated from a text buffer in the REPL like this: ;;;; (+ 1 2) ... ;;;; (+ 1 2) ... ;;;; (+ 1 2) ... The normal REPL interaction display would be like: CL-USER> (+ 1 2) 3 CL-USER> (+ 1 2) 3 CL-USER> (+ 1 2) 3 Both ways look different. Why not use the latter for both interactions? Useful is then also a command to rotate between the various listeners (next, previous) and Lisp buffers (next, previous). Advantages I see for MCL: * With MCL you get the same REPL listener display if you evaluate forms from the Lisp editor buffer (via RETURN) or if you use the REPL in the listener. * Using the enter key (vs. Return) to evaluate code in the editor gets rid of one complex keystroke. * One gets reusable interaction histories in the listener where form and result are displayed together. Is SLIME already providing something similar? Would others find this way of interaction between Lisp buffers and a REPL buffer useful? Regards, Rainer Joswig -- http://lispm.dyndns.org

9 21

[slime-devel] repl history navigation and M-r
by Attila Lendvai 13 Jul '07

13 Jul '07

a recent checkin to cvs eliminated a very useful (ymmv) feature: M-r and M-s behaved just like C-s when it was sequently pressed more then once. i use that feature more than anything in the repl navigation. was it intentional? -- - attila "- The truth is that I've been too considerate, and so became unintentionally cruel... - I understand. - No, you don't understand! We don't speak the same language!" (Ingmar Bergman - Smultronstället)

3 11

[slime-devel] error message
by Tamas K Papp 07 Jul '07

07 Jul '07

Hi, If I send a function that generates a warning to the inferior lisp process, slime gives this error message: error in process filter: Wrong number of arguments: (lambda (f startval l) "reduce the list l by the binary function f. Use start value startval (cf MacLennnan p. 396)" (cond ((null l) startval) (t (apply f (list (car l) (reduce f startval (cdr l))))))), 4 For example, if the function is (defun foo (bar) nil) and I press C-c C-c, I get the error message (because of the cmucl warning that bar is not used). Am I doing something wrong? I am a Lisp newbie. Versions: ii cmucl 19d-20061116-1 The CMUCL lisp compiler and development syst ii emacs21 21.4a+1-5 The GNU Emacs editor ii slime 20061201-2 Superior LISP Interaction Mode for Emacs Thanks, Tamas

3 4

[slime-devel] patch: print-slot-for-emacs
by Larry D'Anna 29 Jun '07

29 Jun '07

Here's a little patch that adds a generic function print-slot-for-emacs that can be used to customize how a slot is printed. For example if you want a particular slot which holds a number to be displayed in hex: (defclass barclass () ((foo :initarg :foo) (bar :initarg :bar))) (defmethod print-slot-for-emacs (class (object barclass) slot) (if (eq (swank-mop:slot-definition-name slot) 'bar) (format nil "~2,'0X" (swank-mop:slot-value-using-class class object slot)))) ;;;inspect this (make-instance 'barclass :foo "foooooo" :bar 255) Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.490 diff -u -r1.490 swank.lisp --- swank.lisp 4 Jun 2007 16:17:17 -0000 1.490 +++ swank.lisp 29 Jun 2007 18:12:54 -0000 @@ -4779,12 +4779,18 @@ maxlen (length doc)))) +(defgeneric print-slot-for-emacs (class object slot) + (:method (class object slot) + (declare (ignore class object slot)) + nil)) + (defgeneric inspect-slot-for-emacs (class object slot) (:method (class object slot) (let ((slot-name (swank-mop:slot-definition-name slot)) (boundp (swank-mop:slot-boundp-using-class class object slot))) `(,@(if boundp - `((:value ,(swank-mop:slot-value-using-class class object slot))) + `((:value ,(swank-mop:slot-value-using-class class object slot) + ,(print-slot-for-emacs class object slot))) `("#<unbound>")) " " (:action "[set value]"

1 0