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

[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

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

10 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.594 slime/ChangeLog:1.595 --- slime/ChangeLog:1.594 Tue Dec 21 14:48:40 2004 +++ slime/ChangeLog Mon Jan 10 20:35:07 2005 @@ -1,3 +1,25 @@ +2005-01-10 Utz-Uwe Haus <haus+slime(a)merkur.math.uni-magdeburg.de> + + * swank-sbcl.lisp (profile-package): Add implementation for SBCL. + +2005-01-10 Eduardo Muñoz <emufer(a)terra.es> + + * swank.lisp (inspect-for-emacs-list): LispWorks has a low args + limit for apply: use reduce instead of apply. + +2005-01-10 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-conservative-indentation): The default is now + nil. Suggested by Travis Cross. + +2005-01-10 Matthias Koeppe <mkoeppe+slime(a)merkur.math.uni-magdeburg.de> + + * slime.el (slime-inspector-next-inspectable-object): Accept a + prefix argument and make wrapping around more reliable. The code + is adapted from `widget-move'. + (slime-inspector-previous-inspectable-object): New command. + (slime-inspector-mode-map): Bind to S-TAB. + 2004-12-16 Martin Simmons <martin(a)xanalys.com> * swank-lispworks.lisp (create-socket): Work around bug in

1 0

[slime-devel] unix domain sockets
by Marcus Breiing 10 Jan '05

10 Jan '05

About two weeks ago I asked on IRC whether there was support for using SLIME via unix domains sockets. Someone answererd in the negative, citing lack of unix domain socket support on Emacs as the reason. I later realized that this doesn't really matter, because we should be able to use an arbitrary process object with a suitable external command. I tried it, and it's working very nicely so far, using unixclient path-to-socket ucspi-proxy as a command in a process object on the Emacs side ("unixclient" and "ucspi-proxy" are available in Debian in the ucspi-unix and ucspi-proxy packages.) (A side effect is that we can easily add other components into the communications pipeline. Things I tried successfully: recordio 2>/tmp/slime-io unixclient path-to-socket ucspi-proxy to record communications, and ssh remote-host unixclient path-to-socket ucspi-proxy to use it from a remote machine.) Below is what I hacked into swank.lisp in order to make unix domain sockets work. Instead of adding specific code to create unix domain sockets, I changed setup-server to accept a pre-established socket object. This is a simple change that should allow anyone on a Lisp that supports it to use unix domain sockets without much change to the swank proper. For the Emacs side, I don't have anything resembling useable patches (being a total slime newbie, really). Something along the lines of the above would probably be simplest, i.e. passing an established process object for slime to use. Some necessary changes identified so far seem to be: * changing (eq (process-status conn) 'open) to (memq (process-status conn) '(run open)) in a few places * Avoid trying to get the "port" of a non-network process object. I need to set (setf swank:*use-dedicated-output-stream* nil) to make things work properly. Interaction looks to be fast enough, though. Marcus diff -u slime-1.0-original/swank.lisp slime-1.0/swank.lisp --- slime-1.0-original/swank.lisp Sat Sep 4 18:19:52 2004 +++ slime-1.0/swank.lisp Sat Dec 18 14:09:36 2004 @@ -277,8 +277,10 @@ dont-close) "Start the server and write the listen port number to PORT-FILE. This is the entry point for Emacs." - (setup-server 0 (lambda (port) (announce-server-port port-file port)) - style dont-close)) + (create-swank-server 0 style + (lambda (port) + (announce-server-port port-file port)) + dont-close)) (defun create-server (&key (port default-server-port) (style *communication-style*) @@ -286,37 +288,37 @@ "Start a SWANK server on PORT running in STYLE. If DONT-CLOSE is true then the listen socket will accept multiple connections, otherwise it will be closed after the first." - (setup-server port #'simple-announce-function style dont-close)) + (create-swank-server port style #'simple-announce-function dont-close)) (defun create-swank-server (&optional (port default-server-port) (style *communication-style*) (announce-fn #'simple-announce-function) dont-close) - (setup-server port announce-fn style dont-close)) - -(defparameter *loopback-interface* "127.0.0.1") - -(defun setup-server (port announce-fn style dont-close) - (declare (type function announce-fn)) (let* ((socket (create-socket *loopback-interface* port)) (port (local-port socket))) (funcall announce-fn port) - (ecase style - (:spawn - (spawn (lambda () - (loop do (serve-connection socket :spawn dont-close) - while dont-close)) - :name "Swank")) - ((:fd-handler :sigio) - (add-fd-handler socket - (lambda () - (serve-connection socket style dont-close)))) - ((nil) - (unwind-protect - (loop do (serve-connection socket style dont-close) - while dont-close) - (close-socket socket)))) + (setup-server socket style dont-close) port)) + +(defparameter *loopback-interface* "127.0.0.1") + +(defun setup-server (socket style dont-close) + (declare (type function announce-fn)) + (ecase style + (:spawn + (spawn (lambda () + (loop do (serve-connection socket :spawn dont-close) + while dont-close)) + :name "Swank")) + ((:fd-handler :sigio) + (add-fd-handler socket + (lambda () + (serve-connection socket style dont-close)))) + ((nil) + (unwind-protect + (loop do (serve-connection socket style dont-close) + while dont-close) + (close-socket socket))))) (defun serve-connection (socket style dont-close) (let ((client (accept-connection socket)))

3 3