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

[slime-devel] comma shortcut doesn't work always
by Edi Weitz 31 Jan '06

31 Jan '06

Another minor glitch that I encountered is that the comma shortcut in the REPL doesn't always work. I can consistently reproduce it (GNU Emacs 21.3.50 and also 21.3 release) like this: 1. Make sure point is at the beginning of a REPL input line. 2. Split Emacs frame into two windows, one of them being the REPL the other one containing something else. 3. Hide REPL window with C-x 0. 4. Now type M-x slime. 5. Type the comma. At this point I'm not asked for a shortcut command in the minibuffer but the comma is simply entered into the REPL instead. Anybody else seeing this? Cheers, Edi.

10 25

Re: [slime-devel] Re: CLISP SLIME implementation breaks in CVS
by Bill_Clementson＠peoplesoft.com 21 Jan '06

21 Jan '06

Luke Gorrie <luke(a)bluetail.com> writes: > Bill_Clementson(a)peoplesoft.com writes: > > > My previous SLIME installation was a CVS install from 4/18. I've just taken > > the latest CVS install and the CLISP SLIME implementation (under Windows) > > breaks. Here is the error: > > > > COERCE: #<MACRO #<COMPILED-CLOSURE SWANK::DEFSLIMEFUN>> cannot be coerced > > to type FUNCTION > > [Condition of type SIMPLE-TYPE-ERROR] > > I can reproduce this but I've no idea what is causing it. It /looks/ > like someone is trying to call defslimefun as a function rather than a > macro, but I don't see where it could happen -- the macro is declared > at the top of the only file that refers to it. > > I did fix a different but similar problem that I got under CLISP. It > seems like I had to swap the order of a couple of macros, one of which > expanded into into code that calls the other, but that surely can't be > the reason. > > > Backtrace: > > 0: EVAL frame for form (SWANK:CREATE-SWANK-SERVER 4007) > > Mine actually gives an empty backtrace (!). I fixed the Elisp-side to > handle that incase it helps someone more CLISP-savvy find the problem. Has anybody had any luck in finding the source of this problem? CLISP still breaks for me in the latest CVS. I have had a look at all of the DEFSLIMEFUN's that were modified since 4/18 (the previous CVS version that I had which was working ok with CLISP) and haven't found any obvious clues. Any suggestions on how I might debug this issue as it occurs at startup during the slime-connect processing in Emacs (after CLISP has started up successfully)? - Bill

5 6

[slime-devel] A command for M-q
by Thomas F. Burdick 18 Jul '04

18 Jul '04

I missed being able to do M-q to reindent the current defun, like in ILISP. Here's the version I'm using. The patch is against a month-old cvs snapshot, sorry. --- slime.el.~1.258.~ Thu Apr 8 16:41:04 2004 +++ slime.el Sun May 2 17:02:35 2004 @@ -449,6 +449,7 @@ ("\M-." slime-edit-definition :inferior t :sldb t) ("\M-," slime-pop-find-definition-stack :inferior t :sldb t) ("\C-q" slime-close-parens-at-point :prefixed t :inferior t) + ("\M-q" slime-reindent-defun :inferior t) ;; Evaluating ("\C-x\C-e" slime-eval-last-expression :inferior t) ("\C-x\M-e" slime-eval-last-expression-display-output :inferior t) @@ -5523,6 +5524,29 @@ (get symbol 'slime-indent)) (put symbol 'slime-indent indent) (put symbol 'common-lisp-indent-function indent))))) + +(defun slime-reindent-defun (&optional force-text-fill) + "Reindent the current defun, or refill the current paragraph. +If point is inside a comment block, the text around point will be +treated as a paragraph and will be filled with `fill-paragraph'. +Otherwise, it will be treated as Lisp code, and the current defun +will be reindented. If the current defun has unbalanced parens, +an attempt will be made to fix it before reindenting. + +When given a prefix argument, the text around point will always +be treated as a paragraph. This is useful for filling docstrings." + (interactive "P") + (save-excursion + (if (or force-text-fill (slime-beginning-of-comment)) + (fill-paragraph nil) + (let ((start (progn (beginning-of-defun) (point))) + (end (ignore-errors (end-of-defun) (point)))) + (unless end + (forward-paragraph) + (slime-close-all-sexp) + (end-of-defun) + (setf end (point))) + (indent-region start end))))) ;;; Test suite

2 3

[slime-devel] indent and autocomplete
by Eric Blood 16 Jul '04

16 Jul '04

The attached patch creates the option of having the naked Tab key do both indent and autocomplete as it currently does in the repl. I moved and renamed slime-repl-indent-and-complete-symbol to slime-indent-and-complete-symbol since it is not repl specific. Also, I have added more default options for the typeout frame--specifically it now has a default width, and moves the typeout frame to the upper right. -- eblood Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.309 diff -u -w -r1.309 slime.el --- slime.el 8 Jun 2004 23:58:09 -0000 1.309 +++ slime.el 9 Jun 2004 04:44:28 -0000 @@ -135,6 +135,10 @@ (defvar slime-kill-without-query-p t "If non-nil, kill Slime processes without query when quitting Emacs.") +(defvar slime-tab-indent-and-complete-p t + "Whether the TAB key should do both an indent and autocomplete in the +Slime minor mode.") + (defvar slime-sbcl-manual-root "http://www.sbcl.org/manual/" "*The base URL of the SBCL manual, for documentation lookup.") @@ -553,7 +557,10 @@ (define-key inferior-slime-mode-map [(control return)] 'inferior-slime-closing-return) (define-key inferior-slime-mode-map - [(meta control ?m)] 'inferior-slime-closing-return)) + [(meta control ?m)] 'inferior-slime-closing-return) + (when slime-tab-indent-and-complete-p + (slime-define-key "\C-i" 'slime-indent-and-complete-symbol + :inferior t))) (slime-init-keymaps) @@ -1033,6 +1040,18 @@ (when (buffer-live-p (get-buffer buffer-name)) (kill-buffer buffer-name))) +(defun slime-indent-and-complete-symbol () + "Indent the current line and perform symbol completion. +First indent the line. If indenting doesn't move point complete the +symbol." + (interactive) + (let ((pos (point))) + (lisp-indent-line) + (when (and (= pos (point)) + (save-excursion + (re-search-backward "\\(\\s_\\|\\sw\\)+\\=" nil t))) + (slime-complete-symbol)))) + (defmacro slime-with-rigid-indentation (level &rest body) "Execute BODY and then rigidly indent its text insertions. Assumes all insertions are made at point." @@ -2330,18 +2349,6 @@ (insert "\n") (lisp-indent-line))) -(defun slime-repl-indent-and-complete-symbol () - "Indent the current line and perform symbol completion. -First indent the line. If indenting doesn't move point complete the -symbol." - (interactive) - (let ((pos (point))) - (lisp-indent-line) - (when (and (= pos (point)) - (save-excursion - (re-search-backward "\\(\\s_\\|\\sw\\)+\\=" nil t))) - (slime-complete-symbol)))) - (defun slime-repl-delete-current-input () (delete-region slime-repl-input-start-mark slime-repl-input-end-mark)) @@ -2490,7 +2497,7 @@ ("\C-c:" 'slime-interactive-eval) ("\C-c\C-e" 'slime-interactive-eval) ;("\t" 'slime-complete-symbol) - ("\t" 'slime-repl-indent-and-complete-symbol) + ("\t" 'slime-indent-and-complete-symbol) (" " 'slime-space) ("\C-\M-x" 'slime-eval-defun) ("\C-c\C-o" 'slime-repl-clear-output) @@ -3565,7 +3572,8 @@ "The current typeout window.") (defvar slime-typeout-frame-properties - '((height . 16) (minibuffer . nil) (name . "SLIME Typeout")) + '((width . 40) (height . 10) (minibuffer . nil) + (left . -10) (top . 10) (name . "SLIME Typeout")) "The typeout frame properties (passed to `make-frame').") (defun slime-typeout-active-p () @@ -3637,7 +3645,7 @@ (slime-complete-restore-window-configuration)) ((memq this-command '(self-insert-command slime-complete-symbol - slime-repl-indent-and-complete-symbol + slime-indent-and-complete-symbol backward-delete-char-untabify backward-delete-char scroll-other-window))

3 2

[slime-devel] Symbols in COMMON-LISP are all in UPPER CASE!
by Pascal J.Bourguignon 30 Jun '04

30 Jun '04

Symbols in COMMON-LISP are all in upper case. (Yes, I know, it's a little known fact about COMMON-LISP). So why can't we look up them in upper case? Let's ignore case when completing symbols in slime-hyperspec-lookup and everybody will be happy. (defun slime-hyperspec-lookup (symbol-name) "A wrapper for `hyperspec-lookup'" (interactive (list (let ((completion-ignore-case t) ;; <<<<--------- (symbol-at-point (slime-symbol-name-at-point))) (if (and symbol-at-point (intern-soft (downcase symbol-at-point) common-lisp-hyperspec-symbols)) symbol-at-point (completing-read "Look up symbol in Common Lisp HyperSpec: " common-lisp-hyperspec-symbols #'boundp t symbol-at-point 'common-lisp-hyperspec-history))))) (hyperspec-lookup symbol-name)) -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein

5 5

[slime-devel] The 1.0-alpha plan
by Luke Gorrie 30 Jun '04

30 Jun '04

Ahoy, I checked in a mkdist.sh shell script for creating a distribution. I made a "fake" release called 1.0alpha0 with it here: http://www.bluetail.com/~luke/misc/lisp/slime-1.0alpha0.tar.gz That's not a real release for distribution, just an example to see if we're missing anything. Two things that I know need doing before releasing an alpha tarball: Update the manual a bit - I'm on it. Write release notes. I've made a start in the NEWS file. It would be great if people could contribute notes about our ACL/CLISP/ABCL backends, and anything important I've missed about the others (e.g. what's the oldest LispWorks what we actually work with?) Is there anything else? If not, I was thinking of making an alpha1 tarball tomorrow or the next day and releasing it. -Luke

4 6

[slime-devel] long delay starting up slime on a computer off-line
by Chisheng Huang 30 Jun '04

30 Jun '04

When my computer is connected to the internet, M-x slime will get me a slime repl buffer immediately. However, if my computer is not connected to the internet, it takes much longer to get a slime repl buffer. There is a long wait while the mini buffer displaying "Connecting to Swank on port 35948...", after which there is another long wait while the mini buffer displaying "initial handshake...". The first delay is due to a call to OPEN-NETWORK-STREAM in SLIME-NET-CONNECT. Not sure about the 2nd delay, which is probably on the CL side. Is it possible to get rid of this long delay when starting up Slime on a computer off-line? Best, -cph

2 3

[slime-devel] changing slime-keys
by Pascal J.Bourguignon 30 Jun '04

30 Jun '04

What function should I call when I change slime-keys to have them taken into account immediately? -- __Pascal Bourguignon__ http://www.informatimago.com/ There is no worse tyranny than to force a man to pay for what he does not want merely because you think it would be good for him. -- Robert Heinlein

3 5

[slime-devel] Patch: show the current debug level in the REPL
by Thomas F. Burdick 30 Jun '04

30 Jun '04

Below is a patch to show the current debug level in the REPL, when it's > 0 Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.443 diff -u -F^(def -r1.443 ChangeLog --- ChangeLog 29 Jun 2004 22:07:00 -0000 1.443 +++ ChangeLog 30 Jun 2004 04:23:33 -0000 @@ -1,3 +1,10 @@ +2004-06-29 Thomas Burdick <tfb(a)OCF.Berkeley.EDU> + + * slime.el: Indicate when the REPL is in the debugger's context + (slime-debug-level): new connection var + (slime-dispatch-event): set slime-debug-level to match *sldb-level* + (slime-repl-insert-prompt): show debug-level in prompt when > 0 + 2004-06-30 Luke Gorrie <luke(a)bluetail.com> * NEWS: Wrote preliminary release notes for alpha-1. Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.346 diff -u -F^(def -r1.346 slime.el --- slime.el 29 Jun 2004 20:17:05 -0000 1.346 +++ slime.el 30 Jun 2004 04:23:46 -0000 @@ -1561,6 +1561,9 @@ (defmacro slime-def-connection-var (varn (slime-def-connection-var slime-use-sigint-for-interrupt nil "If non-nil use a SIGINT for interrupting.") +(slime-def-connection-var slime-debug-level 0 + "The current level of recursive debugging.") + ;; XXX pending continuations are not removed if Lisp crashes. @@ -1602,9 +1605,11 @@ (defun slime-dispatch-event (event &opti (sldb-activate thread level)) ((:debug thread level condition restarts frames) (assert thread) + (setf (slime-debug-level) level) (sldb-setup thread level condition restarts frames)) ((:debug-return thread level) (assert thread) + (setf (slime-debug-level) (1- level)) (sldb-exit thread level)) ((:emacs-interrupt thread) (cond ((slime-use-sigint-for-interrupt) (slime-send-sigint)) @@ -2168,7 +2173,9 @@ (defun slime-repl-insert-prompt (result (slime-insert-propertized '(face slime-repl-result-face) result) (unless (bolp) (insert "\n")) (let ((prompt-start (point)) - (prompt (format "%s> " (slime-lisp-package)))) + (prompt (if (> (slime-debug-level) 0) + (format "%s [%d]> " (slime-lisp-package) (slime-debug-level)) + (format "%s> " (slime-lisp-package))))) (slime-propertize-region '(face slime-repl-prompt-face read-only t

5 5

[slime-devel] Fedora Core 2 and doc build
by Dan Pierson 30 Jun '04

30 Jun '04

For some reason 'sort -d' either loops forever or takes a VERY long time on Fedora Core 2. This breaks the docs build. Removing the -d fixes it for me, as in the following patch, but there may have been some good reason for using the switch... Index: Makefile =================================================================== RCS file: /project/slime/cvsroot/slime/doc/Makefile,v retrieving revision 1.4 diff -u -r1.4 Makefile --- Makefile 22 Jun 2004 14:06:56 -0000 1.4 +++ Makefile 30 Jun 2004 14:02:30 -0000 @@ -43,7 +43,7 @@ contributors.texi: ../ChangeLog Makefile texinfo-tabulate.awk cat ../ChangeLog | \ sed -ne '/^[0-9]/{s/^[^ ]* *//; s/ *<.*//; p;}' | \ - sort -d | \ + sort | \ uniq -c | \ sort -nr| \ sed -e 's/^[^A-Z]*//' | \

2 1