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

[slime-devel] cvs commit messages?
by rambham＠gmail.com 06 Jun '08

06 Jun '08

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

3 2

[slime-devel] [patch] Improvements to slime-selector window handling
by Travis Cross 06 Jun '08

06 Jun '08

Greetings, The slime selector help feature does not restore emacs windows to their prior configuration after it is used. This seems suboptimal to me. The attached patch corrects this issue. The patch also provides for automatically burying 'transactional' buffers when using the slime selector. This may be a personal preference, but I don't like the top of my buffer list filling up with temporary buffers. patches (1): Improvements to slime-selector window handling. After selecting help from the slime selector, then selecting another option, emacs windows are now restored. Also, temporary buffers selected from the slime-selector are now buried in the window list. contrib/slime-scratch.el | 2 +- slime.el | 71 +++++++++++++++++++++++++++++++++------------ 2 files changed, 53 insertions(+), 20 deletions(-) Cheers, -- Travis From f4c3f919c62f3aa91a29889478984dcf66ea66ac Mon Sep 17 00:00:00 2001 From: Travis Cross <tc(a)traviscross.com> Date: Sat, 24 May 2008 03:04:31 +0000 Subject: [PATCH] Improvements to slime-selector window handling. After selecting help from the slime selector, then selecting another option, emacs windows are now restored. Also, temporary buffers selected from the slime-selector are now buried in the window list. --- contrib/slime-scratch.el | 2 +- slime.el | 71 +++++++++++++++++++++++++++++++++------------ 2 files changed, 53 insertions(+), 20 deletions(-) diff --git a/contrib/slime-scratch.el b/contrib/slime-scratch.el index 0121208..a54a1de 100644 --- a/contrib/slime-scratch.el +++ b/contrib/slime-scratch.el @@ -42,7 +42,7 @@ (defun slime-scratch-init () (def-slime-selector-method ?s - "*slime-scratch* buffer." + ("*slime-scratch* buffer." :buryp t) (slime-scratch-buffer))) (provide 'slime-scratch) \ No newline at end of file diff --git a/slime.el b/slime.el index c73756b..1891aaa 100644 --- a/slime.el +++ b/slime.el @@ -7684,6 +7684,19 @@ If ARG is negative, move forwards." Each element is a list (KEY DESCRIPTION FUNCTION). DESCRIPTION is a one-line description of what the key selects.") +(defvar slime-selector-saved-emacs-snapshot nil + "The snapshot of the current state in Emacs before slime selector help was +activated.") + +(defvar slime-selector-bury-buffers nil + "A list of buffers to bury after switching to the next selector method.") + +(defvar slime-selector-kill-buffers nil + "A list of buffers to kill after switching to the next selector method.") + +(defvar slime-help-buffer-name "*Select Help*" + "The name of the slime help buffer.") + (defun slime-selector () "Select a new buffer by type, indicated by a single character. The user is prompted for a single character indicating the method by @@ -7707,7 +7720,7 @@ See `def-slime-selector-method' for defining new methods." (t (funcall (third method)))))) -(defmacro def-slime-selector-method (key description &rest body) +(defmacro* def-slime-selector-method (key (description &key buryp killp) &rest body) "Define a new `slime-select' buffer selection method. KEY is the key the user will enter to choose this method. @@ -7721,63 +7734,83 @@ switch-to-buffer." `(setq slime-selector-methods (sort* (cons (list ,key ,description (lambda () - (let ((buffer (progn ,@body))) - (cond ((get-buffer buffer) - (switch-to-buffer buffer)) - (t - (message "No such buffer: %S" buffer) - (ding)))))) + ,@(unless (= key ??) + `((let ((help-buffer (get-buffer slime-help-buffer-name))) + (when (and slime-selector-saved-emacs-snapshot help-buffer) + (slime-set-emacs-snapshot slime-selector-saved-emacs-snapshot)) + (when slime-selector-saved-emacs-snapshot + (setq slime-selector-saved-emacs-snapshot nil)) + (when help-buffer + (ignore-errors (kill-buffer help-buffer)))))) + (let* ((buffer-or-name (progn ,@body)) + (buffer (get-buffer buffer-or-name))) + (if buffer + (progn + (switch-to-buffer buffer) + (loop for b = (pop slime-selector-bury-buffers) + while b do (ignore-errors (bury-buffer b))) + (loop for b = (pop slime-selector-kill-buffers) + while b do (ignore-errors (kill-buffer b))) + ,@(when buryp `((bury-buffer buffer) + (push buffer slime-selector-bury-buffers))) + ,@(when killp `((push buffer slime-selector-kill-buffers)))) + (progn + (message "No such buffer: %S" buffer) + (ding)))))) (remove* ,key slime-selector-methods :key #'car)) #'< :key #'car))) -(def-slime-selector-method ?? "Selector help buffer." - (ignore-errors (kill-buffer "*Select Help*")) - (with-current-buffer (get-buffer-create "*Select Help*") +(def-slime-selector-method ?? ("Selector help buffer." :buryp t) + (ignore-errors (kill-buffer slime-help-buffer-name)) + (unless slime-selector-saved-emacs-snapshot + (setq slime-selector-saved-emacs-snapshot (slime-current-emacs-snapshot))) + (with-current-buffer (get-buffer-create slime-help-buffer-name) (insert "Select Methods:\n\n") (loop for (key line function) in slime-selector-methods do (insert (format "%c:\t%s\n" key line))) (help-mode) (display-buffer (current-buffer) t) (shrink-window-if-larger-than-buffer - (get-buffer-window (current-buffer)))) + (get-buffer-window (current-buffer))) + (bury-buffer (current-buffer))) (slime-selector) (current-buffer)) (def-slime-selector-method ?r - "SLIME Read-Eval-Print-Loop." + ("SLIME Read-Eval-Print-Loop." :buryp t) (slime-output-buffer)) (def-slime-selector-method ?i - "*inferior-lisp* buffer." + ("*inferior-lisp* buffer." :buryp t) (cond ((and (slime-connected-p) (slime-process)) (process-buffer (slime-process))) (t "*inferior-lisp*"))) (def-slime-selector-method ?v - "*slime-events* buffer." + ("*slime-events* buffer." :buryp t) slime-event-buffer-name) (def-slime-selector-method ?l - "most recently visited lisp-mode buffer." + ("most recently visited lisp-mode buffer." :buryp nil) (slime-recently-visited-buffer 'lisp-mode)) (def-slime-selector-method ?d - "*sldb* buffer for the current connection." + ("*sldb* buffer for the current connection." :buryp t) (or (sldb-get-default-buffer) (error "No debugger buffer"))) (def-slime-selector-method ?e - "most recently visited emacs-lisp-mode buffer." + ("most recently visited emacs-lisp-mode buffer." :buryp nil) (slime-recently-visited-buffer 'emacs-lisp-mode)) (def-slime-selector-method ?c - "SLIME connections buffer." + ("SLIME connections buffer." :buryp t) (slime-list-connections) "*SLIME connections*") (def-slime-selector-method ?t - "SLIME threads buffer." + ("SLIME threads buffer." :buryp t) (slime-list-threads) "*slime-threads*") -- 1.5.5.1

1 1

[slime-devel] Errors with latest SLIME on SBCL
by Yarek Kowalik 06 Jun '08

06 Jun '08

I'm running into similar problems as this one with latest SLIME checked out from cvs, the only difference is the version of SBCL - 1.0.12: http://paste.lisp.org/display/61629 Any idea why I'm getting this? Any way to fix this? Thanks, Yarek

2 1

[slime-devel] Feature request: #+foo foo #-foo not-foo indentation
by Nikodemus Siivola 06 Jun '08

06 Jun '08

Currently, Slime indents like so: (defun foo (x) (typecase x (#+foo foo #-foo fake-foo :foo) (t :not-foo))) whereas it should be like so: (defun foo (x) (typecase x (#+foo foo #-foo fake-foo :foo) (t :not-foo))) Is there a way to coax Slime/Emacs to do the right thing here? Cheers, -- Nikodemus

2 1

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

03 Jun '08

Index: slime/ChangeLog diff -u slime/ChangeLog:1.1356 slime/ChangeLog:1.1357 --- slime/ChangeLog:1.1356 Mon May 19 09:12:52 2008 +++ slime/ChangeLog Mon Jun 2 14:11:15 2008 @@ -1,3 +1,12 @@ +2008-06-02 Raymond Toy <toy.raymond(a)gmail.com> + + Unicode support for CMUCL. + + * swank-cmucl.lisp (accept-connection, make-socket-io-stream): + Handle external-format argument. + (find-external-format): Implemented. + (*external-format-to-coding-system*): New variable. + 2008-05-19 Helmut Eller <heller(a)common-lisp.net> * swank-sbcl.lisp: Don't require asdf.

1 0

[slime-devel] Re: function/symbol-function and thread binding bug?
by Rudi Schlatte 31 May '08

31 May '08

"Tobias C. Rittweiler" <tcr(a)freebits.de> writes: > szergling <senatorzergling(a)gmail.com> writes: > >> Hi folks, >> >> Perhaps I've confused myself a bit here, but there seem to be >> something wrong with either Slime (most likely), SBCL threads, or my >> understanding of the difference between (funcall 'print-something) and >> (funcall #'print-something). >> >> Could someone confirm the following behaviour? > > This is not a Slime issue; the analysis seems correct, though. You > shouldn't rely on this behaviour programmatically. HTH. > I say it's a misunderstanding of the difference between the two funcall examples. You can rely on (let ((that-which-i-want-to-call 'print-something)) (funcall that-which-i-want-to-call)) and (let ((that-which-i-want-to-call #'print-something)) (funcall that-which-i-want-to-call)) to have different semantics. This is not a bug. funcall takes a function designator, which can be a symbol or a function. If funcall is called with 'print-something, it picks up the function that that is currently residing in print-something's function cell. But a redefinition of print-something (which is just storing a new value in that symbol's function cell) doesn't magically hunt down and overwrite every function object (now not bound to any symbol's function attribute) that happened to have been stored in print-something's function cell at some point in the past. So, in the second example the same function will be called, no matter in what way print-something is manhandled in another thread. Cheers, Rudi

1 0

[slime-devel] function/symbol-function and thread binding bug?
by szergling 31 May '08

31 May '08

Hi folks, Perhaps I've confused myself a bit here, but there seem to be something wrong with either Slime (most likely), SBCL threads, or my understanding of the difference bet

1 0

[slime-devel] How to specify optimize options to C-c C-c
by Mirko Vukovic 29 May '08

29 May '08

Hello, When I develop new code (ok, I admit it, this is the first time I am developing code in lisp&slime), I put this at the beginning of the file: (declaim (optimize (safety 3)) (optimize (debug 3)) (optimize (speed 0))) This helps me in debugging the code. However, if I compile defun's with C-c C-c, it does not seem to use that rule. How can I force it to? Thank you, Mirko

3 2

[slime-devel] slime command for stepping a defun?
by Mirko Vukovic 28 May '08

28 May '08

Hello, Is there a slime command to execute (step (funct)) when the cursor is in funct? Thank you, Mirko

1 0

[slime-devel] Re: [Sbcl-devel] Trouble starting up SBCL
by Nikodemus Siivola 20 May '08

20 May '08

On Tue, May 20, 2008 at 4:03 AM, Olivier Drolet <trimtab(a)mac.com> wrote: > Greetings, > > I typed M-x slime in Aquamacs (1.3CVS) to start up SBCL (1.0.16) under > Mac OS X 10.5.2 (PPC iMac) and the thing hangs. I get this message: > > "error in process filter: Symbol's function definition is void: > defpackage" > > Any suggestions? Is this the right forum? slime-devel(a)common-lisp.net is probably better, since this sounds like an Emacs / Slime problem, so I added that to CC. (Please drop sbcl-devel from future replies.) What do you have in *slime-events* buffer? Cheers, -- Nikodemus

1 0