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

[slime-devel] More completion shortcuts
by Edi Weitz 18 Jan '05

18 Jan '05

OK, here's another little completion shortcut that I think would be nice to have. YMMV, of course. Good night, Edi.

3 4

[slime-devel] *read-default-float-format* with C-c C-k, , load-system, etc.
by Dirk Gerrits 17 Jan '05

17 Jan '05

Hi, I'm not 100% sure this is a SLIME question, an ASDF question, or a Common Lisp question, but I'll ask it here anyway. In my program I'd like to have *read-default-float-format* be long-float instead of the default single-float. To accomplish this, I added (eval-when (:compile-toplevel :load-toplevel :execute) (setq *read-default-float-format* 'long-float)) to package.lisp, which should be the first file to be compiled/loaded by ASDF. Now if I do a ,load-system in the SLIME REPL, everything is fine: *read-default-float-format* evaluates to long-float during compilation and also does in the REPL. However, if I open one of my files, and add (defun foo () 50.0), do a C-M-x to compile it, and then call (foo) in the REPL, I get 50.0f0 instead of 50.0d0. C-c C-k doesn't help either, and C-x C-e on the 50.0 also produces a single-float. If I then save the file and do another ,load-system, then (foo) in the REPL /will/ return 50.0d0, as expected. How can I get C-M-x, C-c C-k and C-x C-e to use long-floats too? Am I doing something wrong that causes them to behave differently from ,load-system? I'm using SLIME and Emacs from CVS, and have set inferior-lisp-program and slime-multiprocessing to "sbcl" and t, respectively. Kind regards, Dirk Gerrits

4 13

[slime-devel] Indent problem
by Lars Rune Nøstdal 15 Jan '05

15 Jan '05

Hi, I'm new here .. :) I'm using slime-cvs on Gentoo: (defun test () <tab> ..indent works ok, but doing this: (defun test () <tab>" (" <tab> <-- no indent here! Hope this makes sense! -- mvh, Lars Rune Nøstdal http://nostdal.org/~lars/

2 2

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

14 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.596 slime/ChangeLog:1.599 --- slime/ChangeLog:1.596 Wed Jan 12 18:10:44 2005 +++ slime/ChangeLog Fri Jan 14 18:08:49 2005 @@ -1,3 +1,24 @@ +2005-01-14 Luke Gorrie <luke(a)synap.se> + + * slime.el (slime-repl-send-input): Make old input read-only using + an overlay instead of a text property. This way if you copy&paste + the input elsewhere it will become editable (overlay is associated + with the buffer region and not the text). + +2005-01-14 Edi Weitz <edi(a)agharta.de> + + * slime.el (slime-complete-symbol*): Maybe insert closing + parenthesis or space (depending on arglist) after symbol + completion has finished. Optionally also show arglist. + +2005-01-13 Helmut Eller <heller(a)common-lisp.net> + + * swank-cmucl.lisp (create-socket): The byte-order of the :host + argument for CREATE-INET-LISTENER was changed in the Jan 2005 + snapshot. Test whether the symbol 'ext:socket-error exists to + decide if we are in a older version. + (resolve-hostname): Return the address in host byte-order. + 2005-01-12 Robert Lehr <bozzio(a)the-lehrs.com> * slime.el (slime-changelog-date): Return nil if the ChangLog file

1 0

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

12 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.595 slime/ChangeLog:1.596 --- slime/ChangeLog:1.595 Mon Jan 10 20:35:07 2005 +++ slime/ChangeLog Wed Jan 12 18:10:44 2005 @@ -1,3 +1,26 @@ +2005-01-12 Robert Lehr <bozzio(a)the-lehrs.com> + + * slime.el (slime-changelog-date): Return nil if the ChangLog file + doesn't exits. + (slime-repl-update-banner): Write "ChangeLog file not found" if + the ChangeLog doesn't exist. + +2005-01-12 Matthias Koeppe <mkoeppe(a)mail.math.uni-magdeburg.de> + + * slime.el (slime-inspector-operate-on-click): New command for + inspecting the value value at the clicked-at position or invoking + an inspector action. + (slime-inspector-mode-map): Bind it to mouse-2. + (slime-inspector-insert-ispec): Add mouse-face properties for + clickable values and action buttons. + +2005-01-12 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (*default-worker-thread-bindings*): New variable to + initialize dynamic variables in worker threads. + (spawn-worker-thread, call-with-bindings): New helper functions. + (thread-for-evaluation): Use them. + 2005-01-10 Utz-Uwe Haus <haus+slime(a)merkur.math.uni-magdeburg.de> * swank-sbcl.lisp (profile-package): Add implementation for SBCL.

1 0

[slime-devel] patch - ChangeLog fault
by Robert Lehr 12 Jan '05

12 Jan '05

slime-connect in v1.0 faults during initialization if the ChangeLog is not in the expected place. This patch prevents that by verifying the file's existence before attempting to read it. -- Robert

2 1

Re: [slime-devel] Patch: slime-inspector-previous-inspectable-object
by Helmut Eller 12 Jan '05

12 Jan '05

Matthias Koeppe <mkoeppe(a)merkur.math.uni-magdeburg.de> writes: > Helmut Eller <e9626484(a)stud3.tuwien.ac.at> writes: > >> I installed the patch. > > Thanks, Helmut. I am sending below another patch that improves the > inspector. Applied. I note though, that it doesn't work in XEmacs. The mouse-2 event is called button2[up] and the functions posn-point and event-end are named differently or don't exist in XEmacs. Helmut.

1 0

[slime-devel] def* indent
by Travis Cross 11 Jan '05

11 Jan '05

I have a macro I use quite frequently that has a definition: (defmacro defpage (name title url &body body) ...) Even when I set lisp-prefix-match-indentation to nil (*see below), slime/emacs insists on indenting a call to defpage as (defpage test-page "Test Page" "/url/to" (div (div "the rest of the forms"))) If I rename defpage to something else, like 'mkpage', the indenting works as expected: (mkpage test-page "Test Page "/url/to" (div (div "the rest of the forms"))) I poked around in the slime source code, but I really wasn't able to make heads or tails of what is causing this unexpected (for me) behavior. If what I'm noticing is a 'feature,' what's the easiest way for me to work around this? Much appreciated, -- Travis (SBCL 0.8.15 / Slime CVS / GNU Emacs 21.3.1 / Gentoo) * though interestingly, when I use other test macros, it is evident that turning off lisp-prefix-match-indentation does have some effect. The macro (defmacro deftest (x y z) ...) will be indented: (deftest x y z) with lisp-prefix-match-indent on, but (deftest x y z) with the switch off. It seems that with lisp-prefix-match-indentation set to nil, slime/emacs completely ignores &body clues in the definition. If I redefine deftest as: (defmacro deftest (x y &body z) ...) it will still be indented incorrectly (as far as I can tell).

4 4

[slime-devel] Patch: slime-inspector-previous-inspectable-object
by Matthias Koeppe 11 Jan '05

11 Jan '05

The patch below adds a command `slime-inspector-previous-inspectable-object' and binds it to S-TAB in slime-inspector-mode. Moreover, the command `slime-inspector-next-inspectable-object' now accepts a prefix argument. The patch also makes wrapping around more reliable. I have adapted the code from the Emacs function `widget-move', which is used for similar functionality in Emacs Customize buffers. 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 21 Dec 2004 14:55:34 -0000 @@ -6882,18 +6892,58 @@ Optionally set point to POINT." (set-window-configuration slime-saved-window-config) (kill-buffer (current-buffer))) -(defun slime-inspector-next-inspectable-object () - "sets the point to the next inspectable object" - (interactive) - (let ((pos (if (get-text-property (point) 'slime-part-number) - ;; we're in a part - (next-single-property-change - (or (next-single-property-change (point) 'slime-part-number) (point-min)) - 'slime-part-number) - ;; go to the next part or wrap around - (or (next-single-property-change (point) 'slime-part-number) - (next-single-property-change (point-min) 'slime-part-number))))) - (when pos (goto-char pos)))) +(defun slime-inspector-next-inspectable-object (arg) + "Move point to the next inspectable object. +With optional ARG, move across that many objects. +If ARG is negative, move backwards." + (interactive "p") + (or (bobp) (> arg 0) (backward-char)) + (let ((wrapped 0) + (number arg) + (old (get-text-property (point) 'slime-part-number)) + new) + ;; Forward. + (while (> arg 0) + (cond ((eobp) + (goto-char (point-min)) + (setq wrapped (1+ wrapped))) + (t + (goto-char (or (next-single-property-change (point) 'slime-part-number) + (point-max))))) + (and (= wrapped 2) + (eq arg number) + (error "No inspectable objects")) + (let ((new (get-text-property (point) 'slime-part-number))) + (when new + (unless (eq new old) + (setq arg (1- arg)) + (setq old new))))) + ;; Backward. + (while (< arg 0) + (cond ((bobp) + (goto-char (point-max)) + (setq wrapped (1+ wrapped))) + (t + (goto-char (or (previous-single-property-change (point) 'slime-part-number) + (point-min))))) + (and (= wrapped 2) + (eq arg number) + (error "No inspectable objects")) + (let ((new (get-text-property (point) 'slime-part-number))) + (when new + (unless (eq new old) + (setq arg (1+ arg)))))) + (let ((new (get-text-property (point) 'slime-part-number))) + (while (eq (get-text-property (point) 'slime-part-number) new) + (backward-char))) + (forward-char))) + +(defun slime-inspector-previous-inspectable-object (arg) + "Move point to the previous inspectable object. +With optional ARG, move across that many objects. +If ARG is negative, move forwards." + (interactive "p") + (slime-inspector-next-inspectable-object (- arg))) (defun slime-inspector-describe () (interactive) @@ -6909,6 +6959,7 @@ Optionally set point to POINT." ("d" 'slime-inspector-describe) ("q" 'slime-inspector-quit) ("\C-i" 'slime-inspector-next-inspectable-object) + ([(shift tab)] 'slime-inspector-previous-inspectable-object) ("\M-." 'slime-edit-definition)) -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe

2 2

[slime-devel] Avoid low apply limit
by Eduardo Muñoz 11 Jan '05

11 Jan '05

LispWorks has a low args limit for apply. The following patch (inlined below) avoids landing on sldb when inspecting long lists. I think that its safe to #'nconc (nreverse ... but there isnt a noticeable change of speed or consing so it may be more conservative to just use reduce. Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.272 diff -u -r1.272 swank.lisp --- swank.lisp 16 Dec 2004 21:16:50 -0000 1.272 +++ swank.lisp 22 Dec 2004 21:56:41 -0000 @@ -2631,7 +2631,7 @@ (let ((a (if (null l) a (cons (label-value-line :tail l) a)))) - (apply #'append (reverse a))))))) + (reduce #'nconc (nreverse a))))))) (values title (append '("Elements:" (:newline)) lines))))) (cond ((not length) ; circular -- Eduardo Muñoz | (prog () 10 (print "Hello world!") http://213.97.131.125/ | 20 (go 10))

5 6