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

[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

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

13 Jun '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.713 slime/ChangeLog:1.715 --- slime/ChangeLog:1.713 Sun Jun 12 23:05:29 2005 +++ slime/ChangeLog Mon Jun 13 11:34:53 2005 @@ -1,3 +1,11 @@ +2005-06-13 Edi Weitz <edi(a)agharta.de> + + * swank.lisp (list-all-systems-in-central-registry): Delete + duplicates. + + * swank-lispworks.lisp (unmangle-unfun): If you rename a package + you should rename it everywhere... + 2005-06-12 Alexey Dejneka <adejneka(a)comail.ru> * slime.el (slime-with-xref-buffer): fix "pgk" typo.

1 0

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

12 Jun '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.711 slime/ChangeLog:1.713 --- slime/ChangeLog:1.711 Sat Jun 11 18:22:23 2005 +++ slime/ChangeLog Sun Jun 12 23:05:29 2005 @@ -1,3 +1,16 @@ +2005-06-12 Alexey Dejneka <adejneka(a)comail.ru> + + * slime.el (slime-with-xref-buffer): fix "pgk" typo. + +2005-06-12 Christophe Rhodes <csr21(a)cam.ac.uk> + + * swank.lisp (ed-in-emacs): allow strings as well as pathnames; + don't call emacs for things that the emacs editor doesn't know how + to deal with. Return T if we called emacs and NIL if not. + + * slime.el (slime-ed): Change a listp to consp, so that NIL + arguments are correctly handled. + 2005-06-11 Nikodemus Siivola <nikodemus(a)random-state.net> * swank-sbcl.lisp: Patched for SBCL HEAD: utilize the new

1 0

[slime-devel] typo in slime.el
by Alexey Dejneka 12 Jun '05

12 Jun '05

Hello, Under SBCL 0.9.1.36 I type ``(-)'' into slime-repl, put the cursor on ``-'' and press M-.. Then error message ``Symbol's value as variable is void: pgk'' is printed in the minibuffer. Patch is attached. -- Regards, Alexey Dejneka "Alas, the spheres of truth are less transparent than those of illusion." -- L.E.J. Brouwer

2 1

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

11 Jun '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.710 slime/ChangeLog:1.711 --- slime/ChangeLog:1.710 Fri Jun 10 19:55:10 2005 +++ slime/ChangeLog Sat Jun 11 18:22:23 2005 @@ -1,3 +1,14 @@ +2005-06-11 Nikodemus Siivola <nikodemus(a)random-state.net> + + * swank-sbcl.lisp: Patched for SBCL HEAD: utilize the new + :source-plist functionality; maintain compatibility with 0.9.1 + till 0.9.2 is out. Removed cruft left over from previous + excercises in supporting both HEAD and latest release. + + * doc/slime.texi: Document Slime as supporting the latest official + release of SBCL, as opposed to a specific version number which + would need to be updated monthly. + 2005-06-10 Helmut Eller <heller(a)common-lisp.net> * nregex.lisp (slime-nregex): Rename package to avoid name clashes

1 0

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

10 Jun '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.709 slime/ChangeLog:1.710 --- slime/ChangeLog:1.709 Tue Jun 7 12:08:04 2005 +++ slime/ChangeLog Fri Jun 10 19:55:10 2005 @@ -1,3 +1,16 @@ +2005-06-10 Helmut Eller <heller(a)common-lisp.net> + + * nregex.lisp (slime-nregex): Rename package to avoid name clashes + with other version of this file. + + * swank.lisp (compiled-regex): Use the new package name. + + * slime.el (slime-with-xref-buffer): Gensym package too, to avoid + problems when switching to buffers with -*- package: ... -*- file + variables. From Antonio Menezes Leitao. + (slime-property-bounds): Use the prop argument instead of the + hardcoded 'slime-repl-old-output. From Andras Simon. + 2005-06-07 Espen Wiborg <espenhw(a)grumblesmurf.org> * swank-corman.lisp: Convert to Unix line-endings.

1 0

[slime-devel] problem with CVS
by R. Mattes 10 Jun '05

10 Jun '05

Hello list, i'm trying to update from CVS (revision HEAD) but get the following error message: ralf@hobbes:/LISP/slime$ cvs update -Pd .... cvs [server aborted]: could not find desired version 1.506 in /project/slime/cvsroot/slime/slime.el,v ralf@hobbes:/LISP/slime$ cvs status slime.el cvs [server aborted]: could not find desired version 1.506 in /project/slime/cvsroot/slime/slime.el,v ralf@hobbes:/LISP/slime$ any idea what's causing this? Cheers Ralf Mattes

3 3

[slime-devel] slime-property-bounds
by Andras Simon 10 Jun '05

10 Jun '05

Shouldn't slime-property-bounds look like this? diff -u -r1.506 slime.el --- slime.el 3 Jun 2005 20:00:11 -0000 1.506 +++ slime.el 5 Jun 2005 20:29:56 -0000 @@ -3202,12 +3202,12 @@ ;; forward one char to avoid doing the wrong thing if ;; we're at the beginning of the old input. -luke ;; (18/Jun/2004) - (unless (not (get-text-property (point) 'slime-repl-old-output)) + (unless (not (get-text-property (point) prop)) ;alanr unless we are sitting right after it May 19, 2005 (ignore-errors (forward-char))) (previous-single-char-property-change (point) prop))) (end (save-excursion - (if (get-text-property (point) 'slime-repl-old-output) + (if (get-text-property (point) prop) (progn (goto-char (next-single-char-property-change (point) prop)) (skip-chars-backward "\n \t\r" beg) (point)) Right now, only the part of old input before the point is copied. Andras

2 1

[slime-devel] password handling
by Christian Lynbech 10 Jun '05

10 Jun '05

Is there a simple way to stuff strings back into slime? Suppose one has a function for connecting to a database. This connection will need a password and suppose further that one is a bit conscious about saving the password in clear text inside the source file ro typing it directly into the slime repl buffer (where it also would appear in cleartext). For shell buffers, I have solved this problem by indentifying the shell modes filter function and (this on the meacs side) adding the advice (defadvice term-emulate-terminal (after term-emulate-terminal-advice activate) "Advice `term-emulate-terminal' to prompt for passwords. The variable `term-password-regexp' determines how to match prompt strings. The variable `term-password-handling' determines whether passwords are actually handled or not." (if (and term-password-handling (string-match term-password-regexp str)) (term-read-password (match-string 0 str)))) Together with the function: (defun term-read-password (&optional prompt) "Read a password and send it to the buffers process. Optional argument PROMPT specifies alternative prompt string." (interactive) (process-send-string nil (my-read-passwd (or prompt "Password: "))) (process-send-string nil "\n")) this allows emacs to recognise that a password is needed, prompt for the password in the minibuffer using 'read-passwd' and the send the password directly to the inferior process without the password appearing directly in the buffer. I am not claiming this to be perfect security but I think it is a little better than nothing. Now I would like to retrofit this functionality to slime, but as the lisp process is not running directly within the slime repl buffer I am somewhat unsure on how to best hook in to the I/O flow. (Some stuff has been left out for brevity, let me know if you need the full emacs code.) ------------------------+----------------------------------------------------- Christian Lynbech | christian #\@ defun #\. dk ------------------------+----------------------------------------------------- Hit the philistines three times over the head with the Elisp reference manual. - petonic(a)hal.com (Michael A. Petonic)

2 1

[slime-devel] PATCH: Support for SBCL HEAD (and future 0.9.2)
by Nikodemus Siivola 10 Jun '05

10 Jun '05

The attached patch provides support for 0.9.1.25 (coming soon to an anoncvs near you), which includes the newfangled WITH-COMPILATION-UNIT :SOURCE-PLIST stuff -- and breaks unpatched Slime. The patch should work with all versions between 0.9.1 and 0.9.1.25 as well. I also took the liberty of documenting Slime as supporting only the latest official release of SBCL, as opposed to a specific version.... Cheers, -- Nikodemus Schemer: "Buddha is small, clean, and serious." Lispnik: "Buddha is big, has hairy armpits, and laughs."

2 1