slime-devel

slime-devel@common-lisp.net

4231 discussions

[slime-devel] fuzzy completion code
by PERROT Stephane 24 Jun '05

24 Jun '05

Hello all slimers, I would like to copy out swank.lisp fuzzy-completion code in a distinct file, so as to be able do distribute it independantly of SLIME, for use in LispWorks Editor (as people using only LW Editor don't necessarily have SLIME installed) Has anybody an objection to me doing that? Also, I would like to know who the author(s) of this part of swank.lisp was (were), in order to give credit where credit is due... Thanks in advance for your answer, Stéphane Perrot P.S. : In my request you can see the result of Luke's brilliant Amsterdam SLIME demo, where all users of other Lisp environnments instantly became envious of that marvelous, unheard-of, feature (fuzzy completion) :-)

2 1

[slime-devel] Patch to improve presentations
by Matthias Koeppe 23 Jun '05

23 Jun '05

Hi, thanks to all who have worked on the new presentations feature of SLIME. This is very nice work! I am sending a patch that make the presentations feature a bit more robust and intuitive (IMHO). With the patch, parts of presentations can be copied reliably using all available Emacs facilities (not just kill-ring-save), and they are no longer "semi-readonly" (in the sense that keypresses are silently ignored). Whenever a user attempts to edit a presentation, it now simply turns into plain text (which is indicated by changing the face); this can be undone. The patch removes the pre-command and post-command hooks and the classification of some modification commands into "action-type"s. In an after-change-function, I check whether only a part of a presentation has been pasted or whether a presentation has been edited. Cheers, Matthias Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.509 diff -u -p -u -r1.509 slime.el --- slime.el 12 Jun 2005 21:05:29 -0000 1.509 +++ slime.el 23 Jun 2005 14:57:12 -0000 @@ -860,15 +860,13 @@ This list of flushed between commands.") "Execute all functions in `slime-pre-command-actions', then NIL it." (dolist (undo-fn slime-pre-command-actions) (ignore-errors (funcall undo-fn))) - (setq slime-pre-command-actions nil) - (slime-presentation-command-hook)) + (setq slime-pre-command-actions nil)) (defun slime-post-command-hook () (when (and slime-mode (slime-connected-p)) (slime-process-available-input)) (when (null pre-command-hook) ; sometimes this is lost - (add-hook 'pre-command-hook 'slime-pre-command-hook)) - (slime-presentation-post-command-hook) ) + (add-hook 'pre-command-hook 'slime-pre-command-hook))) (defun slime-setup-command-hooks () "Setup a buffer-local `pre-command-h'ook' to call `slime-pre-command-hook'." @@ -876,7 +874,8 @@ This list of flushed between commands.") (make-local-hook 'post-command-hook) ;; alanr: need local t (add-hook 'pre-command-hook 'slime-pre-command-hook nil t) - (add-hook 'post-command-hook 'slime-post-command-hook nil t)) + (add-hook 'post-command-hook 'slime-post-command-hook nil t) + (add-hook 'after-change-functions 'slime-after-change-function nil t)) ;(add-hook 'slime-mode-hook 'slime-setup-command-hooks) ;(setq post-command-hook nil) @@ -2560,6 +2559,8 @@ update window-point afterwards. If poin (when (boundp 'text-property-default-nonsticky) (pushnew '(slime-repl-old-output . t) text-property-default-nonsticky :test 'equal) + (pushnew '(slime-repl-presentation . t) text-property-default-nonsticky + :test 'equal) (pushnew '(slime-repl-result-face . t) text-property-default-nonsticky :test 'equal))) @@ -2584,16 +2585,56 @@ update window-point afterwards. If poin (setf (gethash id slime-presentation-start-to-point) nil) (when start (with-current-buffer (slime-output-buffer) - (add-text-properties - start (symbol-value 'slime-output-end) - `(face slime-repl-result-face - slime-repl-old-output ,id - mouse-face slime-repl-output-mouseover-face - keymap ,slime-presentation-map - rear-nonsticky (slime-repl-old-output - slime-repl-result-face - slime-repl-output-mouseover-face)))))))))) + (slime-add-presentation-properties start (symbol-value 'slime-output-end) + id nil)))))))) + +(defstruct (slime-presentation) + (text) + (id) + (start-p) + (stop-p)) + +(defun slime-add-presentation-properties (start end id result-p) + "Make the text between START and END a presentation with ID. +RESULT-P decides whether a face for a return value or output text is used." + (add-text-properties start end + `(face slime-repl-inputed-output-face + slime-repl-old-output ,id + mouse-face slime-repl-output-mouseover-face + keymap ,slime-presentation-map + rear-nonsticky (slime-repl-old-output + slime-repl-presentation + slime-repl-result-face + slime-repl-output-mouseover-face))) + (let ((text (buffer-substring-no-properties start end))) + (case (- end start) + (0) + (1 + (add-text-properties start end + `(slime-repl-presentation + ,(make-slime-presentation :text text :id id + :start-p t :stop-p t)))) + (t + (let ((inhibit-modification-hooks t)) + (add-text-properties start (1+ start) + `(slime-repl-presentation + ,(make-slime-presentation :text text :id id + :start-p t :stop-p nil))) + (when (> (- end start) 2) + (add-text-properties (1+ start) (1- end) + `(slime-repl-presentation + ,(make-slime-presentation :text text :id id + :start-p nil :stop-p nil)))) + (add-text-properties (1- end) end + `(slime-repl-presentation + ,(make-slime-presentation :text text :id id + :start-p nil :stop-p t)))))))) +(defun slime-insert-presentation (result output-id) + (let ((start (point))) + (insert result) + (slime-add-presentation-properties start (point) (- output-id) t))) + (defun slime-open-stream-to-lisp (port) (let ((stream (open-network-stream "*lisp-output-stream*" (slime-with-connection-buffer () @@ -2746,61 +2787,105 @@ joined together.")) (slime-setup-command-hooks) (run-hooks 'slime-repl-mode-hook)) -(defvar slime-not-copying-whole-presentation nil) - -;; alanr -(defun slime-presentation-command-hook () - (let* ((props-here (text-properties-at (point))) - (props-before (and (not (= (point) (point-min))) - (text-properties-at (1- (point))))) - (inside (and (getf props-here 'slime-repl-old-output))) - (at-beginning (and inside - (not (getf props-before 'slime-repl-old-output)))) - (at-end (and (or (= (point) (point-max)) - (not (getf props-here 'slime-repl-old-output))) - (getf props-before 'slime-repl-old-output))) - (start (cond (at-beginning (point)) - (inside (previous-single-property-change - (point) 'slime-repl-old-output)) - (at-end (previous-single-property-change - (1- (point)) 'slime-repl-old-output)))) - (end (cond (at-beginning (or (next-single-property-change - (point) 'slime-repl-old-output) - (point-max))) - (inside (or (next-single-property-change (point) 'slime-repl-old-output) - (point-max))) - (at-end (point))))) - ; (setq message (format "%s %s %s %s %s" at-beginning inside at-end start end)) - (when (and (or inside at-end) start end (> end start)) - (let ((kind (get this-command 'action-type))) - ; (message (format "%s %s %s %s" at-beginning inside at-end kind)) - (cond ((and (eq kind 'inserts) inside (not at-beginning)) - (setq this-command 'ignore)) - ((and (eq kind 'deletes-forward) inside (not at-end)) - (kill-region start end) - (setq this-command 'ignore)) - ((and (eq kind 'deletes-backward) (or inside at-end) (not at-beginning)) - (kill-region start end) - (setq this-command 'ignore)) - ((eq kind 'copies) - (multiple-value-bind (start end) (slime-property-bounds 'slime-repl-old-input) - (setq slime-not-copying-whole-presentation - (not (or (and at-beginning (>= (mark) end)) - (and at-end (<= (mark) start))))))) - ;(message (format "%s %s" length (abs (- (point) (mark)))))))) - ))))) - -;; if we did not copy the whole presentation, then remove the text properties from the -;; top of the kill ring - -(defun slime-presentation-post-command-hook () - (when (eq (get this-command 'action-type) 'copies) - (when slime-not-copying-whole-presentation - (remove-text-properties 0 (length (car kill-ring)) - '(slime-repl-old-output t mouse-face t rear-nonsticky t) - (car kill-ring)))) - (setq slime-not-copying-whole-presentation nil) - ) +(defun slime-presentation-whole-p (start end) + (let ((presentation (get-text-property start 'slime-repl-presentation))) + (and presentation + (string= (buffer-substring-no-properties start end) + (slime-presentation-text presentation))))) + +(defun slime-same-presentation-p (a b) + (and (string= (slime-presentation-text a) (slime-presentation-text b)) + (= (slime-presentation-id a) (slime-presentation-id b)))) + +(defun* slime-presentation-start () + "Find start of presentation at point. Return buffer index and + whether a start-tag was found. When there is no presentation at + point, return nil and nil." + (let* ((presentation (get-text-property (point) 'slime-repl-presentation)) + (this-presentation presentation)) + (unless presentation + (return-from slime-presentation-start + (values nil nil))) + (save-excursion + (while (not (slime-presentation-start-p this-presentation)) + (let ((change-point (previous-single-property-change (point) 'slime-repl-presentation))) + (unless change-point + (return-from slime-presentation-start + (values (point-min) nil))) + (setq this-presentation (get-text-property change-point 'slime-repl-presentation)) + (unless (and this-presentation + (slime-same-presentation-p presentation this-presentation)) + (return-from slime-presentation-start + (values (point) nil))) + (goto-char change-point))) + (values (point) t)))) + +(defun* slime-presentation-end () + "Find end of presentation at point. Return buffer index (after last + character of the presentation) and whether an end-tag was found." + (let* ((presentation (get-text-property (point) 'slime-repl-presentation)) + (this-presentation presentation)) + (unless presentation + (return-from slime-presentation-end + (values nil nil))) + (save-excursion + (while (and this-presentation + (slime-same-presentation-p presentation this-presentation) + (not (slime-presentation-stop-p this-presentation))) + (let ((change-point (next-single-property-change (point) 'slime-repl-presentation))) + (unless change-point + (return-from slime-presentation-end + (values (point-max) nil))) + (goto-char change-point) + (setq this-presentation (get-text-property (point) 'slime-repl-presentation)))) + (if (and this-presentation + (slime-same-presentation-p presentation this-presentation)) + (let ((after-end (next-single-property-change (point) 'slime-repl-presentation))) + (if (not after-end) + (values (point-max) t) + (values after-end t))) + (values (point) nil))))) + +(defun slime-presentation-around-point () + "Return start index, end index, and whether the presentation is complete." + (multiple-value-bind (start good-start) + (slime-presentation-start) + (multiple-value-bind (end good-end) + (slime-presentation-end) + (values start end + (and good-start good-end + (slime-presentation-whole-p start end)))))) + +(defun slime-after-change-function (start end old-len) + "Check all presentations within and adjacent to the change. When a + presentation has been altered, change it to plain text." + (unless undo-in-progress + (let ((real-start (max (point-min) (1- start))) + (real-end (min (point-max) (1+ end))) + (any-change nil)) + ;; positions around the change + (save-excursion + (goto-char real-start) + (while (< (point) real-end) + (let ((presentation (get-text-property (point) 'slime-repl-presentation))) + (when presentation + (multiple-value-bind (from to whole) + (slime-presentation-around-point) + ;;(message "presentation %s whole-p %s" (buffer-substring from to) whole) + (unless whole + (setq any-change t) + (remove-text-properties from to + '(slime-repl-old-output t + slime-repl-inputed-output-face t + face t mouse-face t rear-nonsticky t + slime-repl-presentation t)))))) + (let ((next-change + (next-single-property-change (point) 'slime-repl-presentation nil + real-end))) + (if next-change + (goto-char next-change) + (undo-boundary) + (return)))))))) (defun slime-copy-presentation-at-point (event) (interactive "e") @@ -2824,20 +2909,6 @@ joined together.")) (goto-char (point-max)) (do-insertion))))))) -(put 'self-insert-command 'action-type 'inserts) -(put 'self-insert-command-1 'action-type 'inserts) -(put 'yank 'action-type 'inserts) -(put 'kill-word 'action-type 'deletes-forward) -(put 'delete-char 'action-type 'deletes-forward) -(put 'kill-sexp 'action-type 'deletes-forward) -(put 'backward-kill-sexp 'action-type 'deletes-backward) -(put 'backward-delete-char 'action-type 'deletes-backward) -(put 'delete-backward-char 'action-type 'deletes-backward) -(put 'backward-kill-word 'action-type 'deletes-backward) -(put 'backward-delete-char-untabify 'action-type 'deletes-backward) -(put 'slime-repl-newline-and-indent 'action-type 'inserts) -(put 'kill-ring-save 'action-type 'copies) - (defvar slime-presentation-map (make-sparse-keymap)) (define-key slime-presentation-map [mouse-2] 'slime-copy-presentation-at-point) @@ -2887,19 +2958,15 @@ end end." (let ((start (point))) (unless (bolp) (insert "\n")) (unless (string= "" result) - (slime-propertize-region `(face slime-repl-result-face) - (slime-propertize-region - (and slime-repl-enable-presentations - `(face slime-repl-result-face - slime-repl-old-output ,(- slime-current-output-id) - mouse-face slime-repl-output-mouseover-face - keymap ,slime-presentation-map)) - (insert result))) + (if slime-repl-enable-presentations + (slime-insert-presentation result slime-current-output-id) + (slime-propertize-region `(face slime-repl-result-face) + (insert (substring result 1)))) (unless (bolp) (insert "\n")) (let ((inhibit-read-only t)) (put-text-property (- (point) 2) (point) 'rear-nonsticky - '(slime-repl-old-output face read-only)))) + '(slime-repl-old-output slime-repl-presentation face read-only)))) (let ((prompt-start (point)) (prompt (format "%s> " (slime-lisp-package-prompt-string)))) (slime-propertize-region -- Matthias Koeppe -- http://www.math.uni-magdeburg.de/~mkoeppe

1 0

[slime-devel] feture suggjestion
by Knut Olav Bøhmer 23 Jun '05

23 Jun '05

When I'm in a buffer editing my lisp-code, and decide to test the code, by pressing C-x C-e, slime forks of a new thread with the name "worker". The problem starts when I have several threads running from different buffers with the name "worker", and one of the threads ends in an infinite loop or deadlock, and I want to kill one of the threads. Then I don't know which thread is doing what. So If the thread got the name "worker + buffer name" then I would have slightly more control. Good Idea? -- Knut Olav Bøhmer tlf: +47 47400777

1 0

[slime-devel] SLIME minimal hardware requirements
by borisman＠netmail.kg 21 Jun '05

21 Jun '05

My name is Boris, and i have a question that google can not answer. I want to buy a very old notebook and i wonder will i be able to run slime on it. The notebook is Toshiba Saellite 2100CS with i486 DX 25 processor and 8 Mb ram. I want to install Dewbian Linux on it and work in text mode. (no XWindows). Will i be able use EMACS+SLIME+LISP on it ??? Sorry bothering you, but don't know anybody else to ask.

4 4

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

21 Jun '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.715 slime/ChangeLog:1.716 --- slime/ChangeLog:1.715 Mon Jun 13 11:34:53 2005 +++ slime/ChangeLog Tue Jun 21 20:28:58 2005 @@ -1,3 +1,7 @@ +2005-06-21 Edi Weitz <edi(a)agharta.de> + + * swank.lisp (find-matching-packages): Also use nicknames. + 2005-06-13 Edi Weitz <edi(a)agharta.de> * swank.lisp (list-all-systems-in-central-registry): Delete

1 0

[slime-devel] REPL buffer transcripts [PATCH]
by Richard M Kreuter 18 Jun '05

18 Jun '05

Hello, I fairly often copy text from the REPL buffer into text files and emails, and then spend a lot of time adding text to the beginnings of lines to indicate which text was input, output, error messages, or return values. But with a little tweaking, slime can do this stuff for me. I've attached a patch against today's anonymous cvs, with which I've made the following transcript. If people think this feature is worth including but that the code needs changes, please let me know what has to be done. -- Richard ; SLIME 2005-06-13 CL-USER> 1 1 CL-USER> ,transcript ; REPL transcript printing activated CL-USER> 1 => 1 CL-USER> (read) <- "asdf" => "asdf" CL-USER> (error "Foo.") !! Foo. !! [Condition of type SIMPLE-ERROR] ; Evaluation aborted CL-USER> (loop for input = (read) until (not (numberp input)) do (format t "~A~%~%~A~%" input (sqrt input)) finally (return input)) <- 1 -| 1 -| -| 1.0 <- 4 -| 4 -| -| 2.0 <- q => Q CL-USER> (values 5 "foo") => 5 => "foo" CL-USER> (macroexpand '(with-open-file (*standard-output* "foo") (read-line))) => (LET ((*STANDARD-OUTPUT* (OPEN "foo")) (#:G3835 T)) (UNWIND-PROTECT (MULTIPLE-VALUE-PROG1 (PROGN (READ-LINE)) (SETQ #:G3835 NIL)) (WHEN *STANDARD-OUTPUT* (CLOSE *STANDARD-OUTPUT* :ABORT #:G3835)))) => T CL-USER> ,transcript ; REPL transcript printing deactivated CL-USER> 1 1 CL-USER> (read) "asdf" "asdf" CL-USER> (error "Foo.") ; Evaluation aborted CL-USER>

1 0

[slime-devel] README clarification
by Brandon J. Van Every 16 Jun '05

16 Jun '05

The README does not match the .PDF documentation when explaining how to configure the ~/.emacs file. The README mentions setting the inferior-lisp-program variable, but it doesn't show how to do it. An example would be moderately helpful to people who are not familiar with emacs configuration, i.e. it may save someone a half hour of futzing. Believe it or not, people (like me :-) do things like wonder "what is this variable they're talking about?" and then start looking for it in the emacs docs, which of course it isn't in. Something like the following would be an improvement over what is currently written: (setq inferior-lisp-program "D:/lang/clisp-2.33.2/clisp.bat") (add-to-list 'load-path "D:/app/slime") (require 'slime) (slime-setup) Also the README doesn't say you need to put this stuff in your ~/.emacs file. Maybe there are other ways to get it working, but it might be good if the README assumes less familiarity with emacs rather than more. Generally, the .PDF documentation is clearer than the README. Maybe it would be best to synchronize the README from the .PDF doc. Cheers, www.indiegamedesign.com Brandon Van Every Seattle, WA "The pioneer is the one with the arrows in his back." - anonymous entrepreneur

1 0

[slime-devel] slime wish list 1
by Hoehle, Joerg-Cyril 15 Jun '05

15 Jun '05

Hi, o enhancement: selector r -> switch to another Lisp's repl if already in a repl o enhancement: C-c C-m in macroexpansion buffer (*SLIME Description*) should leave window as is (currently switches that same already visible buffer to the next window, causing visual confusion) o enhancement: C-c C-m inside macroexpansion in *SLIME Description could expand in place instead of replacing the whole buffer with the new expansion o *Slime Inspector* name not coherent with either *SLIME Apropos* or *slime-events*, I suggest *SLIME Inspector* I'm about to send one more clisp-specific patch, but these things came to my mind during my first approach to SLIME. [I'm still using slime-1.2.1, but promise to move to the next FAIRLY-STABLE CVS when it will include my apropos patches] o doc suggestion: mention in doc & web site that http://common-lisp.net/cgi-bin/viewcvs.cgi/cvs_root.tar.gz?tarball=1&cvsroo… can be used to download the FAIRLY-STABLE tarball. I built that URL on my own, and it seemed to work correctly. Regards, Jorg Hohle.

1 0

[slime-devel] arglist: string-upcase not a string: #1=("length" 0 6 (swank-io-p ackage::startopen ...
by Hoehle, Joerg-Cyril 15 Jun '05

15 Jun '05

Hi, has anybody ever been hit by this error? I searched the archives and found nothing. arglist: string-upcase not a string: #1=("length" 0 6 (swank-io-package::startopen t swank-io-package:end-open t)) It happens in both cmucl and clisp after typing the space following e.g. "(length " in either the repl or a Lisp-slime buffer. Sometimes, there's no error, and the arglist gets displayed in the mini-buffer, as expected. But it does not happen consistently. I.e. it just happened now again, after a long period of peace :-) It happens with slime-1.2.1 and the fairly-stable snapshot from ~2 weeks ago. Regards, Jorg Hohle.

1 0

[slime-devel] Strange behavior in edit-definition
by Antonio Menezes Leitao 13 Jun '05

13 Jun '05

Hi all, I've been experiencing some strange bugs related to the slime-show-xrefs function trying to access the 'void variable' package. This behavior occurs more or less consistently while editing (on a Linux machine) a set of files that where written using the Franz Emacs Lisp Interface on a MacOSX. Here is one example of the stacktrace: Debugger entered--Lisp error: (void-variable package) (slime-init-xref-buffer package G88189 G88190) (progn (slime-init-xref-buffer package G88189 G88190) (make-local-variable (quote slime-xref-saved-window-configuration)) (setq slime-xref-saved-window-configuration (current-window-configuration))) (prog2 (progn (slime-init-xref-buffer package G88189 G88190) (make-local-variable ...) (setq slime-xref-saved-window-configuration ...)) (progn (slime-insert-xrefs xrefs) (goto-char ...) (forward-line) (skip-chars-forward " ")) (setq buffer-read-only t) (select-window (or ... ...)) (shrink-window-if-larger-than-buffer)) (save-current-buffer (set-buffer (get-buffer-create ...)) (prog2 (progn ... ... ...) (progn ... ... ... ...) (setq buffer-read-only t) (select-window ...) (shrink-window-if-larger-than-buffer))) (with-current-buffer (get-buffer-create (format "*XREF[%s: %s]*" G88189 G88190)) (prog2 (progn ... ... ...) (progn ... ... ... ...) (setq buffer-read-only t) (select-window ...) (shrink-window-if-larger-than-buffer))) (let ((G88189 type) (G88190 symbol)) (with-current-buffer (get-buffer-create ...) (prog2 ... ... ... ... ...))) (slime-with-xref-buffer (package type symbol) (slime-insert-xrefs xrefs) (goto-char (point-min)) (forward-line) (skip-chars-forward " ")) (if (null xrefs) (message "No references found for %s." symbol) (setq slime-next-location-function (quote slime-goto-next-xref)) (slime-with-xref-buffer (package type symbol) (slime-insert-xrefs xrefs) (goto-char ...) (forward-line) (skip-chars-forward " "))) slime-show-xrefs((("expression-right-operand" ("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND (INFIX-EXPRESSION)))" :location ... ... nil) ("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND (INSTANCEOF-EXPRESSION)))" :location ... ... nil) ("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND :AROUND (NODE)))" :location ... ... nil) ("(:OPERATOR EXPRESSION-RIGHT-OPERAND)" :location ... ... nil))) definition "expression-right-operand" ":jnil") slime-show-definitions("expression-right-operand" (("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND (INFIX-EXPRESSION)))" (:location ... ... nil)) ("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND (INSTANCEOF-EXPRESSION)))" (:location ... ... nil)) ("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND :AROUND (NODE)))" (:location ... ... nil)) ("(:OPERATOR EXPRESSION-RIGHT-OPERAND)" (:location ... ... nil)))) (if (slime-length> definitions 1) (slime-show-definitions name definitions) (let (...) (destructure-case ... ... ...))) slime-goto-definition("expression-right-operand" (("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND (INFIX-EXPRESSION)))" (:location ... ... nil)) ("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND (INSTANCEOF-EXPRESSION)))" (:location ... ... nil)) ("(:OPERATOR (METHOD EXPRESSION-RIGHT-OPERAND :AROUND (NODE)))" (:location ... ... nil)) ("(:OPERATOR EXPRESSION-RIGHT-OPERAND)" (:location ... ... nil))) nil) (if (null definitions) (if slime-edit-definition-fallback-function (funcall slime-edit-definition-fallback-function name) (error "No known definition for: %s" name)) (slime-goto-definition name definitions where)) (let ((definitions ...)) (if (null definitions) (if slime-edit-definition-fallback-function ... ...) (slime-goto-definition name definitions where))) slime-edit-definition("expression-right-operand") call-interactively(slime-edit-definition) Here is (what I think is) the relevant function: (defun slime-show-xrefs (xrefs type symbol package) "Show the results of an XREF query." (if (null xrefs) (message "No references found for %s." symbol) (setq slime-next-location-function 'slime-goto-next-xref) (slime-with-xref-buffer (package type symbol) (slime-insert-xrefs xrefs) (goto-char (point-min)) (forward-line) (skip-chars-forward " \t")))) This function uses the macro slime-with-xref-buffer: (defmacro* slime-with-xref-buffer ((package ref-type symbol) &body body) "Execute BODY in a xref buffer, then show that buffer." (let ((type (gensym)) (sym (gensym))) `(let ((,type ,ref-type) (,sym ,symbol)) (with-current-buffer (get-buffer-create (format "*XREF[%s: %s]*" ,type ,sym)) (prog2 (progn (slime-init-xref-buffer ,package ,type ,sym) (make-local-variable 'slime-xref-saved-window-configuration) (setq slime-xref-saved-window-configuration (current-window-configuration))) (progn ,@body) (setq buffer-read-only t) (select-window (or (get-buffer-window (current-buffer) t) (display-buffer (current-buffer) t))) (shrink-window-if-larger-than-buffer)))))) I confess that I couldn't identify the cause for the bug. However, I noticed that the macrocall expands into a (with-current-buffer ... (slime-init-xref-buffer package ...)) and maybe it was that 'package' variable being referenced after changing to a different buffer that was causing the problem. An hard to believe explanation, I'm sure, but just in case, I experimented replacing that 'package' variable by another gensym, using: (defmacro* slime-with-xref-buffer ((package ref-type symbol) &body body) "Execute BODY in a xref buffer, then show that buffer." (let ((type (gensym)) (sym (gensym)) (pkg (gensym))) `(let ((,type ,ref-type) (,sym ,symbol) (,pkg ,package)) (with-current-buffer (get-buffer-create (format "*XREF[%s: %s]*" ,type ,sym)) (prog2 (progn (slime-init-xref-buffer ,pkg ,type ,sym) (make-local-variable 'slime-xref-saved-window-configuration) (setq slime-xref-saved-window-configuration (current-window-configuration))) (progn ,@body) (setq buffer-read-only t) (select-window (or (get-buffer-window (current-buffer) t) (display-buffer (current-buffer) t))) (shrink-window-if-larger-than-buffer)))))) and after redefining slime-show-xrefs, everything worked OK. Maybe a Slime expert can understand the problem. Best regards, António Leitão.

2 2

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel