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

[slime-devel] Patch for problem described above
by Ivan Boldyrev 15 Apr '04

15 Apr '04

Problem was simplier than I expected :) As usually, if you want mention me in ChangeLog, do not mention my e-mail, only name. -- Ivan Boldyrev Your bytes are bitten.

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 14 Apr '04

14 Apr '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.331 slime/ChangeLog:1.332 --- slime/ChangeLog:1.331 Fri Apr 9 16:48:13 2004 +++ slime/ChangeLog Tue Apr 13 06:04:38 2004 @@ -1,3 +1,10 @@ +2004-04-13 Marco Baringer <mb(a)bese.it> + + * slime.el (slime-handle-repl-shortcut, + slime-list-all-repl-shortcuts, slime-lookup-shortcut, + defslime-repl-shortcut): Refactor repl shortcut code to provide a + more leggible help. + 2004-04-09 Lawrence Mitchell <wence(a)gmx.li> * slime.el (slime-same-line-p): Use `line-end-position', rather

1 0

[slime-devel] compiler note buffers
by Zach Beane 12 Apr '04

12 Apr '04

I kinda like the compiler notes tree, but it has one thing that bugs me. A little background: I typically use slime by having one emacs window for the file I'm editing, and one emacs window for the slime repl. I don't split between the file and the repl in a single window. I use "C-c C-c" all the time to send the current defun to SBCL; I didn't even know about C-M-x until recently. When I have compiler notes, my source window gets split up. If I "q", the notes disappear and the original layout is restored, but if I don't "q" immediately and another compiler notes tree is triggered, "q" doesn't restore the original layout, the window remains split. What should I do? I tried using a typeout frame, but it doesn't look like the compiler notes tree uses it. Zach

1 0

[slime-devel] Problems with CLISP asserts
by Barry Fishman 12 Apr '04

12 Apr '04

When running the CVS version of CLISP I get a failure during the asserts in slink.lisp. The problem is that: (assert (test-print-arglist '(&key (function #'+)) "(&key (function #'+))")) fails because: (print-arglist-to-string '(&key (function #'+))) Returns: "(&key (function #'|COMMON-LISP|::|+|))" rather than: "(&key (function #'+))" I would think the CLISP response was technically correct, although overly verbose. This seems to be a side effect of using WITH-STANDARD-IO-SYNTAX, and PPRINT. (pprint '#'+) => #'+ (with-standard-io-syntax (pprint '#'+)) => #'|COMMON-LISP|::|+| (with-standard-io-syntax (princ '#'+)) => #'+ -- Barry Fishman

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 10 Apr '04

10 Apr '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.330 slime/ChangeLog:1.331 --- slime/ChangeLog:1.330 Thu Apr 8 11:26:44 2004 +++ slime/ChangeLog Fri Apr 9 16:48:13 2004 @@ -1,3 +1,9 @@ +2004-04-09 Lawrence Mitchell <wence(a)gmx.li> + + * slime.el (slime-same-line-p): Use `line-end-position', rather + than searching for a newline manually. + (slime-repl-defparameter): Use VALUE, not VALUE-FORM. + 2004-04-08 Marco Baringer <mb(a)bese.it> * slime.el (slime-repl-package-stack): New buffer local variable.

1 0

[slime-devel] More slime.el fixes
by Lawrence Mitchell 09 Apr '04

09 Apr '04

Hmmm, can you tell I have real work I should be doing? Here are a bunch of small fixes for slime.el. Most should be fairly self-explanatory. Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.325 diff -u -r1.325 ChangeLog --- ChangeLog 7 Apr 2004 10:07:50 -0000 1.325 +++ ChangeLog 7 Apr 2004 12:40:14 -0000 @@ -1,3 +1,35 @@ +2004-04-07 Lawrence Mitchell <wence(a)gmx.li> + + * slime.el (slime-repl-prompt-face): New face. + (slime-repl-insert-prompt): Use it. + (when-let, slime-with-chosen-connection, with-struct): Docstring + fix for function's arglist display. + (slime-read-package-name): Use `slime-bogus-completion-alist' to + construct completion table. + (slime-maybe-rearrange-inferior-lisp): Use `rename-buffer's + optional argument to rename uniquely. + (slime-check-connected): Display keybinding for `slime' via + `substitute-command-keys'. + (slime-repl-send-repl-command): Use whitespace character class in + regexp. + (slime-same-line-p): Use `line-beginning-position' and + `line-end-position'. Fix typo in docstring. + (slime-autodoc-stop-timer): New function. + (slime-autodoc-mode): Add `interactive' spec to specify optional + arg. This allows prefix toggling of mode (behaves more like + most Emacs modes now). Stop timer if switching mode off with + `slime-autodoc-stop-timer'. + (slime-autodoc-start-timer, slime-complete-symbol) + (slime-complete-saved-window-configuration) + (slime-insert-balanced-comments): Docstring fix. + (slime-ed): Call `slime-from-lisp-filename' on filename for list + case of argument. + (slime-insert-transcript-delimiter, slime-thread-insert): Use + ?\040 to indicate SPC. + (line-beginning-position): `forward-line' always puts us in + column 0. + (line-end-position): New function. + 2004-04-07 Luke Gorrie <luke(a)bluetail.com> * swank.lisp (completion-set): Also complete package @@ -39,8 +71,8 @@ 2004-04-05 Lawrence Mitchell <wence(a)gmx.li> - * swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*, - *swank-pprint-level*, *swank,pprint-length*): Fix typo in + * swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*) + (*swank-pprint-level*, *swank-pprint-length*): Fix typo in docstring. * slime.el (slime-arglist): Don't `message' arglist directly, in Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.255 diff -u -r1.255 slime.el --- slime.el 6 Apr 2004 16:08:36 -0000 1.255 +++ slime.el 7 Apr 2004 12:41:35 -0000 @@ -179,6 +179,11 @@ "Face for compiler notes while selected." :group 'slime) +(defface slime-repl-prompt-face + '((t (:inherit font-lock-keyword-face))) + "Face for the prompt in the SLIME REPL." + :group 'slime) + (defface slime-repl-output-face '((t (:inherit font-lock-string-face))) "Face for Lisp output in the SLIME REPL." @@ -644,7 +649,7 @@ "Evaluate VALUE, and if the result is non-nil bind it to VAR and evaluate BODY. -\(when-let (VAR VALUE) &rest BODY)" +\(fn (VAR VALUE) &rest BODY)" `(let ((,var ,value)) (when ,var ,@body))) @@ -691,8 +696,7 @@ &body body) "Make the connection choosen by PREFIX-ARG current. -\(slime-with-chosen-connection (&optional (PREFIX-ARG 'current-prefix-arg)) - &body BODY)" +\(fn (&optional (PREFIX-ARG 'current-prefix-arg)) &body BODY)" `(let ((slime-dispatching-connection (slime-get-named-connection ,prefix-arg))) ,@body)) @@ -977,9 +981,9 @@ (defun slime-read-package-name (prompt &optional initial-value) "Read a package name from the minibuffer, prompting with PROMPT." (let ((completion-ignore-case t)) - (completing-read prompt (mapcar (lambda (x) (cons x x)) - (slime-eval - `(swank:list-all-package-names))) + (completing-read prompt (slime-bogus-completion-alist + (slime-eval + `(swank:list-all-package-names))) nil nil initial-value))) (defmacro slime-propertize-region (props &rest body) @@ -1052,9 +1056,8 @@ (defun slime-maybe-rearrange-inferior-lisp () "Offer to rename *inferior-lisp* so that another can be started." (when (y-or-n-p "Create an additional *inferior-lisp*? ") - (let ((bufname (generate-new-buffer-name "*inferior-lisp*"))) - (with-current-buffer "*inferior-lisp*" - (rename-buffer bufname))))) + (with-current-buffer "*inferior-lisp*" + (rename-buffer bufname t)))) (defun slime-maybe-start-lisp () "Start an inferior lisp unless one is already running." @@ -1666,7 +1669,8 @@ (defun slime-check-connected () (unless (slime-connected-p) - (error "Not connected. Use `M-x slime' to start a Lisp."))) + (error "Not connected. Use `%s' to start a Lisp." + (substitute-command-keys "\\[slime]")))) (defun slime-connected-p () "Return true if the Swank connection is open." @@ -2015,7 +2019,7 @@ (unless (bolp) (insert "\n")) (let ((prompt-start (point))) (slime-propertize-region - '(face font-lock-keyword-face + '(face slime-repl-prompt-face read-only t intangible t slime-repl-prompt t @@ -2206,7 +2210,7 @@ we're assuming is a repl command." (let ((input (buffer-substring-no-properties (save-excursion (goto-char slime-repl-input-start-mark) - (search-forward-regexp " *,")) + (search-forward-regexp "\\s-*,")) (save-excursion (goto-char slime-repl-input-end-mark) (when (and (eq (char-before) ?\n) @@ -2218,7 +2222,7 @@ '(face slime-repl-input-face rear-nonsticky (face))) (slime-mark-output-start) (slime-mark-input-start) - (if (string-match "^ *\\+ *$" input) + (if (string-match "^\\s-*\\+\\s-*$" input) ;; majik ,+ command (slime-repl-send-string (pop slime-repl-input-history)) (slime-repl-send-string (concat "(swank::repl-command " input ")\n") (concat "," input))))) @@ -2806,7 +2810,9 @@ ;;;;;;; Tree Widget (defmacro* with-struct ((conc-name &rest slots) struct &body body) - "Like with-slots but works only for structs." + "Like with-slots but works only for structs. + +\(fn (CONC-NAME &rest SLOTS) STRUCT &body BODY)" (flet ((reader (slot) (intern (concat (symbol-name conc-name) (symbol-name slot))))) (let ((struct-var (gensym "struct"))) @@ -2970,9 +2976,9 @@ (point)))))))) (defun slime-same-line-p (pos1 pos2) - "Return true if buffer positions PoS1 and POS2 are on the same line." - (save-excursion (goto-char (min pos1 pos2)) - (not (search-forward "\n" (max pos1 pos2) t)))) + "Return t if buffer positions POS1 and POS2 are on the same line." + (and (<= (line-beginning-position) (min pos1 pos2)) + (<= (max pos1 pos2) (line-end-position)))) (defun slime-severity-face (severity) "Return the name of the font-lock face representing SEVERITY." @@ -3284,11 +3290,13 @@ (defun slime-autodoc-mode (&optional arg) "Enable `slime-autodoc'." - (interactive) - (cond ((and arg (not (eq -1 arg))) (setq slime-autodoc-mode t)) - ((eq -1 arg) (setq slime-autodoc-mode nil)) + (interactive "P") + (cond ((< (prefix-numeric-value arg) 0) (setq slime-autodoc-mode nil)) + (arg (setq slime-autodoc-mode t)) (t (setq slime-autodoc-mode (not slime-autodoc-mode)))) - (when slime-autodoc-mode (slime-autodoc-start-timer))) + (if slime-autodoc-mode + (slime-autodoc-start-timer) + (slime-autodoc-stop-timer))) (defun slime-autodoc () "Print some apropos information about the code at point, if applicable." @@ -3342,7 +3350,7 @@ "*Delay before autodoc messages are fetched and displayed, in seconds.") (defun slime-autodoc-start-timer () - "*(Re)start the timer that prints autodocs every `slime-autodoc-delay' seconds." + "(Re)start the timer that prints autodocs every `slime-autodoc-delay' seconds." (interactive) (when slime-autodoc-idle-timer (cancel-timer slime-autodoc-idle-timer)) @@ -3350,6 +3358,12 @@ (run-with-idle-timer slime-autodoc-delay slime-autodoc-delay 'slime-autodoc-timer-hook))) +(defun slime-autodoc-stop-timer () + "Stop the timer that prints autodocs. +See also `slime-autodoc-start-timer'." + (when slime-autodoc-idle-timer + (cancel-timer slime-autodoc-idle-timer))) + (defun slime-autodoc-timer-hook () "Function to be called after each Emacs becomes idle. When `slime-autodoc-mode' is non-nil, print apropos information about @@ -3418,7 +3432,7 @@ (defvar slime-completions-buffer-name "*Completions*") (defvar slime-complete-saved-window-configuration nil - "Window configuration before we show the *Completions* buffer.\n\ + "Window configuration before we show the *Completions* buffer. This is buffer local in the buffer where the complition is performed.") @@ -3470,8 +3484,8 @@ (defun slime-complete-symbol () "Complete the symbol at point. -If the symbol lacks an explicit package prefix, the current buffer's -package is used." + +Completion is performed by `slime-complete-symbol-function'." (interactive) (funcall slime-complete-symbol-function)) @@ -3744,7 +3758,7 @@ (cond ((stringp what) (find-file (slime-from-lisp-filename what))) ((listp what) - (find-file (first what)) + (find-file (first (slime-from-lisp-filename what))) (goto-line (second what)) ;; Find the correct column, without going past the end of ;; the line. @@ -3787,7 +3801,7 @@ (unless (bolp) (insert "\n")) (slime-insert-propertized '(slime-transcript-delimiter t) - ";;;; " (subst-char-in-string ?\n ?\ + ";;;; " (subst-char-in-string ?\n ?\040 (substring string 0 (min 60 (length string)))) " ...\n")))) @@ -5066,7 +5080,7 @@ (defun slime-thread-insert (id name summary) (slime-propertize-region `(thread-id ,id) (slime-insert-propertized '(face bold) name) - (insert-char ?\ (- 30 (current-column))) + (insert-char ?\040 (- 30 (current-column))) (let ((summary-start (point))) (insert " " summary) (unless (bolp) (insert "\n")) @@ -5456,7 +5470,7 @@ (defun slime-insert-balanced-comments (arg) "Insert a set of balanced comments around the s-expression containing the point. If this command is invoked repeatedly -(without any other command occurring between invocations), the +\(without any other command occurring between invocations), the comment progressively moves outward over enclosing expressions. If invoked with a positive prefix argument, the s-expression arg expressions out is enclosed in a set of balanced comments." @@ -6276,7 +6290,12 @@ (defun-if-undefined line-beginning-position (&optional n) (save-excursion (forward-line n) - (beginning-of-line) + (point))) + +(defun-if-undefined line-end-position (&optional n) + (save-excursion + (forward-line n) + (end-of-line) (point))) (defun-if-undefined check-parens () -- Lawrence Mitchell <wence(a)gmx.li>

2 4

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 09 Apr '04

09 Apr '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.327 slime/ChangeLog:1.330 --- slime/ChangeLog:1.327 Wed Apr 7 12:28:13 2004 +++ slime/ChangeLog Thu Apr 8 11:26:44 2004 @@ -1,3 +1,62 @@ +2004-04-08 Marco Baringer <mb(a)bese.it> + + * slime.el (slime-repl-package-stack): New buffer local variable. + (slime-repl-directory-stack): New buffer local variable. + (slime-repl-command-input-complete-p): Remove. + (slime-repl-update-banner): New function. + (slime-init-output-buffer): Use slime-repl-update-banner. + (slime-repl-shortcut-dispatch-char): New variable. + (slime-repl-return): Don't check for repl commands anymore. + (slime-repl-send-repl-command): Remove. + (slime-repl-mode-map): Bind slime-repl-shortcut-dispatch-char to + slime-handle-repl-shortcut. + (slime-set-default-directory): Use read-directory-name, call + slime-repl-update-banner. + (slime-repl-shortcut-table): New global variable. + (slime-handle-repl-shortcut): New function. + (defslime-repl-shortcut): New macro for defining repl shortcuts. + (slime-repl-shortcut-help, "change-directory", + slime-repl-push-directory, slime-repl-pop-directory, + "change-package", slime-repl-push-package, slime-repl-pop-package, + slime-repl-resend, slime-repl-sayoonara, slime-repl-defparameter, + slime-repl-compile-and-load): New repl shortcuts. + (slime-kill-all-buffers): Kill sldb buffers as well. + + * swank.lisp: Remove the repl related functions. + (requires-compile-p): New function. + +2004-04-07 Lawrence Mitchell <wence(a)gmx.li> + + * slime.el (slime-repl-prompt-face): New face. + (slime-repl-insert-prompt): Use it. + (slime-with-chosen-connection, with-struct): Docstring + fix for function's arglist display. + (when-let, slime-with-chosen-connection, with-struct): Docstring + fix for function's arglist display. + (slime-read-package-name): Use `slime-bogus-completion-alist' to + construct completion table. + (slime-maybe-rearrange-inferior-lisp): Use `rename-buffer's + optional argument to rename uniquely. + (slime-check-connected): Display keybinding for `slime' via + `substitute-command-keys'. + (slime-repl-send-repl-command): Use whitespace character class in + regexp. + (slime-autodoc-stop-timer): New function. + (slime-autodoc-mode): Add `interactive' spec to specify optional + arg. This allows prefix toggling of mode (behaves more like + most Emacs modes now). Stop timer if switching mode off with + `slime-autodoc-stop-timer'. + (slime-autodoc-start-timer, slime-complete-symbol) + (slime-complete-saved-window-configuration) + (slime-insert-balanced-comments): Docstring fix. + (slime-ed): Call `slime-from-lisp-filename' on filename for list + case of argument. + (slime-insert-transcript-delimiter, slime-thread-insert): Use + ?\040 to indicate SPC. + (line-beginning-position): `forward-line' always puts us in + column 0. + (line-end-position): Define if not fboundp (for older XEmacs). + 2004-04-07 Peter Seibel <peter(a)javamonkey.com> * swank-allegro.lisp (set-default-directory): Allegro specific @@ -47,8 +106,8 @@ 2004-04-05 Lawrence Mitchell <wence(a)gmx.li> - * swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*, - *swank-pprint-level*, *swank,pprint-length*): Fix typo in + * swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*) + (*swank-pprint-level*, *swank-pprint-length*): Fix typo in docstring. * slime.el (slime-arglist): Don't `message' arglist directly, in

1 0

[slime-devel] Patches
by Luke Gorrie 08 Apr '04

08 Apr '04

Ahoy, I'll be away from the keys over easter (off in a couple of hours), and I don't know when Helmut's getting back, so if other SLIME committers are around and want to review & commit patches from the list then do feel free. Otherwise we'll catch up with them next week. Cheers, Luke P.S., if any Lispers in the Amsterdam area want to grab an easter beer then shoot me a mail.

1 0

[slime-devel] slime repl commands
by Marco Baringer 08 Apr '04

08 Apr '04

i just applied a patch which adds "repl commands" to slime. the syntax is #\, command-name &rest args. I used the comma instead of #\: since, afaict, #\, will never appear at the start of a valid lisp form (unless you're messing with the read table in which case you can just deal with it). the following commands have been implemented: cd namestring - change *default-pathname-defaults* pwd - return the namestring of *default-pathname-defaults* sayoonara - quits the lisp and kills all slime related buffers (this has a weild bug whereby the next connection attempt after a sayoonara will fail). cload file &optional force - loads file. if the source is newer than the compiled, or the compilied doesn't exist, or force is T then the file is compilied before being loaded. pack &optional new-package - sets or returns the current package. the utility of this is debatable. + - resend the top of slime-repl-input-history, don't change slime-repl-input-history. I have tried to make defining commands easy, see the bottom of swank.lisp for the defs of the current commands. I may very well have broken the repl, comments welcome. These should probably be re-organived into an explicit elisp side stuff and lisp side stuff. we'll see if future commands need it enough to do that. -- Marco Ring the bells that still can ring. Forget the perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen

5 12

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 08 Apr '04

08 Apr '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.324 slime/ChangeLog:1.327 --- slime/ChangeLog:1.324 Tue Apr 6 12:25:27 2004 +++ slime/ChangeLog Wed Apr 7 12:28:13 2004 @@ -1,3 +1,18 @@ +2004-04-07 Peter Seibel <peter(a)javamonkey.com> + + * swank-allegro.lisp (set-default-directory): Allegro specific + version that also uses excl:chdir. + + * swank.lisp (swank-pprint): Add swank versions of two missing + pretty-printer control variables. + +2004-04-07 Luke Gorrie <luke(a)bluetail.com> + + * swank.lisp (completion-set): Also complete package + names. (Patch from Sean O'Rourke.) + (find-matching-packages): Add a ":" to the end of package names + in completion. + 2004-04-06 Luke Gorrie <luke(a)bluetail.com> * slime.el (slime-bytecode-stale-p): Automatically check if

1 0

[slime-devel] [patch] also complete on packages
by Sean O'Rourke 07 Apr '04

07 Apr '04

This patch makes Slime complete on package names as well for non-qualified names. This allows you to type (cl-my-really-long-package:foo as (cl- <tab> : f <tab> fwiw, /s

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 07 Apr '04

07 Apr '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.321 slime/ChangeLog:1.324 --- slime/ChangeLog:1.321 Mon Apr 5 02:27:48 2004 +++ slime/ChangeLog Tue Apr 6 12:25:27 2004 @@ -1,3 +1,35 @@ +2004-04-06 Luke Gorrie <luke(a)bluetail.com> + + * slime.el (slime-bytecode-stale-p): Automatically check if + slime.elc is older than slime.el and try to help the user out if + so. + +2004-04-06 Marco Baringer <mb(a)bese.it> + + * slime.el (slime-repl-command-input-complete-p): New function. + (slime-repl-send-string): New optional arg specifying what string + to put on slime-repl-input-history, usefull when this string + differs from what we actually want to eval. + (slime-repl-return): Check for repl commands and pass then to + slime-repl-send-repl-command. + (slime-repl-send-repl-command): New function. + (slime-kill-all-buffers): New function. + + * swank.lisp: Define the various repl command handlers: sayoonara, + cd, pwd, pack and cload. + + * swank-backend.lisp (quit-lisp): Define as part of the backend + interface and export. + + * swank-sbcl.lisp, swank-openmcl.lisp, swank-cmucl.lisp, + swank-clisp.lisp, swank-allegro.lisp (quit-lisp): implement. + +2004-04-06 Luke Gorrie <luke(a)bluetail.com> + + * swank.lisp (macro-indentation): Check that the arglist is + well-formed. This works around a problem with ACL returning + arglists that aren't real lambda-lists. + 2004-04-05 Lawrence Mitchell <wence(a)gmx.li> * swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*,

1 0

[slime-devel] RSS feed for slime
by Zach Beane 06 Apr '04

06 Apr '04

Howdy, slime developers. I would like to take the Daily Changelog Diff mail message and turn it into an RSS feed aggregated on Planet Lisp. Does anyone mind if I do that? Zach

2 1

Re: [slime-devel] Re: Automatic "semantic" indentation
by Bill_Clementson＠peoplesoft.com 06 Apr '04

06 Apr '04

Luke Gorrie <luke(a)bluetail.com> writes: > Bill_Clementson(a)peoplesoft.com writes: > > > I had to modify this a bit for ACL - here is the output. > > Thanks. It looks like almost all of the arglists are proper lambda-lists, so > we should be able to get good indentation information overall. > > I've added an extra test to skip over the bad ones so it should be all > fixed. That fixed it - thanks! -- Bill Clementson

1 0

Re: [slime-devel] Re: Automatic "semantic" indentation
by Bill_Clementson＠peoplesoft.com 06 Apr '04

06 Apr '04

Luke Gorrie <luke(a)bluetail.com> writes: > Bill_Clementson(a)peoplesoft.com writes: > > > Here is the documentation for excl:arglist: > > arglist > > Arguments: function > > > > Returns two values: if the the argument list of the operator (function, > > generic function, or macro) specified by the argument is known, it and t > > are returned. If the argument list is not known (that information can be > > discarded to save space), nil and nil are returned. Note that some argument > > lists may be uninformative (perhaps simply &rest args) when a function does > > all argument processing within its body. Also, the compiler may have > > simplified the argument list for its purposes. This function is designed to > > assist only. > > I'm guessing this is a case where the compiler has simplified the > argument list for its purposes. One fix would be to scan the arglist > to make sure it's properly terminated, and otherwise ignore it. But > maybe that way we would miss some useful information. > > Could you please post the (voluminous) output of this, just to see if > we can pick a meaningful pattern in their arglist formats? > > (let ((arglists '())) > (do-all-symbols (sym) > (when (macro-function sym) > (push (list sym (arglist sym)) arglists))) > arglists) Sorry for the tardy response. I had to modify this a bit for ACL - here is the output. CL-USER> (let ((arglists '())) (do-all-symbols (sym) (when (macro-function sym) (push (list sym (if (ignore-errors (arglist sym)) (arglist sym) :not-function-or-macro)) arglists))) arglists) ((TOP-LEVEL:ALIAS (TOP-LEVEL::NAME TOP-LEVEL::ARGS &REST TOP-LEVEL::BODY)) (TOP-LEVEL:SETQ-DEFAULT (TOP-LEVEL::VAR TOP-LEVEL::VALUE)) (TOP-LEVEL::DO-WITH-VENV ((TOP-LEVEL::VENV SYMBOL TOP-LEVEL::VALUE &OPTIONAL TOP-LEVEL::INDEX TOP-LEVEL::RESULT-FORM) &REST TOP-LEVEL::BODY)) (TOP-LEVEL::DEAD-LOCAL-P (TOP-LEVEL::NAME)) (TOP-LEVEL::DO-WITH-VENV-PAIR ((TOP-LEVEL::VENV TOP-LEVEL::PAIR &OPTIONAL TOP-LEVEL::INDEX TOP-LEVEL::RESULT-FORM) &REST TOP-LEVEL::BODY)) (SYSTEM:WITH-COMMAND-LINE-ARGUMENTS ((&REST SYSTEM::OPTION-LISTS) (SYSTEM::RESTVAR &KEY SYSTEM:COMMAND-LINE-ARGUMENTS SYSTEM::USAGE SYSTEM::POSIXLY-CORRECT SYSTEM::LONG-ABBREV) &BODY SYSTEM::BODY)) (SYSTEM:RECORD-CODE-VECTORS ((SYSTEM::FILE &KEY SYSTEM::VERBOSE) &BODY SYSTEM::BODY)) (SYSTEM:DEFPATCH (EXCL::ID EXCL::VERSION EXCL::DESC &REST EXCL::ARGS &KEY EXCL::COMPILE-FEATURE EXCL::SUPERSEDED EXCL::WITHDRAWN &ALLOW-OTHER-KEYS)) (SYSTEM:RECORD-STRINGS (SYSTEM::FILE &BODY SYSTEM::BODY)) (SYSTEM::TARGET-MDPARAM (SYSTEM::NAME &REST SYSTEM::ARGS)) (SYSTEM::WITH-HOST-AS-TARGET (&BODY SYSTEM::BODY)) (SYSTEM::PRESTO-FLC-FILENAME (SYSTEM::N)) (SWANK-BACKEND::DEFXREF (SWANK-BACKEND::NAME SWANK-BACKEND::RELATION SWANK-BACKEND::NAME1 SWANK-BACKEND::NAME2)) (SWANK-BACKEND::WITH-COMPILATION-HOOKS ((&REST IGNORE) &BODY SWANK-BACKEND::BODY)) (SWANK-BACKEND::DEFIMPLEMENTATION (SWANK-BACKEND::NAME SWANK-BACKEND::ARGS &BODY SWANK-BACKEND::BODY)) (SWANK-BACKEND::DEFINTERFACE (SWANK-BACKEND::NAME SWANK-BACKEND::ARGS DOCUMENTATION &BODY SWANK-BACKEND::DEFAULT-BODY)) (SWANK::DESTRUCTURE-CASE (SWANK::VALUE &REST SWANK::PATTERNS)) (SWANK::DEFSLIMEFUN (SWANK::NAME SWANK-BACKEND:ARGLIST &BODY REST)) (SWANK::WITHOUT-INTERRUPTS (&BODY SWANK::BODY)) (SWANK::WITH-IO-REDIRECTION ((SWANK::CONNECTION) &BODY SWANK::BODY)) (SWANK::WITH-TEMP-PACKAGE (SWANK::VAR &BODY SWANK::BODY)) (SWANK::WITH-READER-ERROR-HANDLER ((SWANK::CONNECTION) &BODY SWANK::BODY)) (SWANK::WITH-CONNECTION ((SWANK::CONNECTION) &BODY SWANK::BODY)) (PROFILER:SAVE-CURRENT-PROFILE (VARIABLE)) (PROFILER:WITH-PROFILING ((&KEY TYPE PROFILER::EXCEPT-STACK-GROUPS PROFILER::EXCEPT-PROCESSES COUNT PROFILER::COUNT-LIST PROFILER::VERBOSE PROFILER::START-SAMPLING-P PROFILER::INTERPRET-CLOSURES) &BODY PROFILER::BODY)) (PROFILER:WITH-SAMPLING ((&KEY PROFILER::VERBOSE) &BODY PROFILER::BODY)) (PROFILER::PREPARING-ANALYSIS ((PROFILER::CURRENT-PROFILE PROFILER::VERBOSE) &BODY PROFILER::BODY)) (PROFILER::PREPARING-PROFILE-ANALYSIS ((PROFILER::PROFILE PROFILER::VERBOSE PROFILER::FLAT) &BODY PROFILER::BODY)) (NET.URI:DO-ALL-URIS ((NET.URI::VAR &OPTIONAL NET.URI:URI-SPACE NET.URI::RESULT-FORM) &REST NET.URI::FORMS)) (MULTIPROCESSING:PROCESS-IMPLEMENTATION (MULTIPROCESSING:PROCESS)) (MULTIPROCESSING:WITH-PROCESS-LOCK ((MULTIPROCESSING::LOCK &KEY MULTIPROCESSING::TIMEOUT MULTIPROCESSING::NORECURSIVE MULTIPROCESSING::SEIZED MULTIPROCESSING::WHOSTATE) &BODY MULTIPROCESSING::BODY)) (MULTIPROCESSING:WITHOUT-SCHEDULING (&BODY MULTIPROCESSING::BODY)) (MULTIPROCESSING:WITH-TIMEOUT ((MULTIPROCESSING::SECONDS &BODY MULTIPROCESSING::TIMEOUT-BODY) &BODY MULTIPROCESSING::BODY)) (MULTIPROCESSING:WAITING-FOR-INPUT-AVAILABLE ((MULTIPROCESSING::STREAM-OR-FD) &BODY MULTIPROCESSING::BODY)) (MULTIPROCESSING::PROCESS-THROW :NOT-FUNCTION-OR-MACRO) (MULTIPROCESSING::WITH-CLOCK-ENABLED (MULTIPROCESSING:PROCESS &BODY MULTIPROCESSING::BODY)) (MULTIPROCESSING::THREAD-THROW :NOT-FUNCTION-OR-MACRO) (MULTIPROCESSING::PPFORMAT (MULTIPROCESSING::F MULTIPROCESSING::S &REST MULTIPROCESSING::ARGS)) (MULTIPROCESSING::WITHOUT-MESSAGE-INTERRUPTS (&BODY MULTIPROCESSING::BODY)) (MULTIPROCESSING::WITHOUT-SCHEDULING-INTERNAL (&BODY MULTIPROCESSING::BODY)) (LEP:DEFINE-REPLY (LEP::NAME LEP::TYPES &OPTIONAL LEP::ARGS &BODY LEP::BODY)) (LEP:WITH-OUTPUT-TO-TEMP-BUFFER ((STREAM LEP::BUFFER-NAME &REST LEP::OPTIONS) &BODY LEP::BODY)) (LEP:WITH-EDITOR-LISTENER-STREAM ((STREAM &REST LEP::OPTIONS) &BODY LEP::BODY)) (LEP:DEFINE-QUERY (FUNCTION LEP::LAMBDA-LIST LEP::TYPES (&REST LEP::OPTIONS &KEY LEP::REPLYP &ALLOW-OTHER-KEYS) LEP::ELISP-FUNCTION-AND-ARGUMENTS)) (LEP:WITH-EDITOR-OUTPUT ((STREAM LEP::BUFFER-NAME &REST LEP::OPTIONS) &BODY LEP::BODY)) (LEP::WITH-OUTPUT-TO-SESSION ((STREAM LEP::SESSION) &BODY LEP::BODY)) (LEP::REQUEST-CASE ((LEP::SESSION &KEY TYPE) &REST LEP::CLAUSES)) (LEP::WITH-BACKGROUND-EVAL-STREAMS ((&OPTIONAL STREAM &REST LEP::OPTIONS) &BODY LEP::BODY)) (LEP::WITH-CONNECTION ((LEP::CONNECTION) &BODY LEP::BODY)) (LEP::WITH-SESSION-ERROR-HANDLING ((LEP::SESSION LEP::ARGS) &BODY LEP::BODY)) (LEP::WITH-OUTPUT-TO-CONNECTION ((STREAM LEP::CONNECTION) &BODY LEP::BODY)) (LEP::WITH-OUTPUT-TO-HIDDEN-BUFFER ((STREAM LEP::BUFFER-NAME &REST LEP::OPTIONS) &BODY LEP::BODY)) (LEP::WITH-KEYWORDS ((EXCL::NEW EXCL::OLD LEP::KEYWORDS) &BODY LEP::BODY)) (LEP::WITH-SESSION ((LEP::SESSION &REST LEP::INITARGS) &BODY LEP::BODY)) (INSPECT::INSPECT-INIT :NOT-FUNCTION-OR-MACRO) (FOREIGN-FUNCTIONS:DEFCSTRUCT (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (FOREIGN-FUNCTIONS::NAME-AND-OPTIONS FOREIGN-FUNCTIONS::ARGS &KEY FOREIGN-FUNCTIONS::CALL-DIRECT FOREIGN-FUNCTIONS::CALLBACK FOREIGN-FUNCTIONS::CONVENTION FOREIGN-FUNCTIONS::RETURNING FOREIGN-FUNCTIONS::METHOD-INDEX FOREIGN-FUNCTIONS::RELEASE-HEAP FOREIGN-FUNCTIONS::RELEASE-HEAP-IGNORABLE FOREIGN-FUNCTIONS::ARG-CHECKING FOREIGN-FUNCTIONS::OPTIMIZE-FOR-SPACE FOREIGN-FUNCTIONS::STRINGS-CONVERT FOREIGN-FUNCTIONS::ERROR-VALUE)) (FOREIGN-FUNCTIONS:DEF-FOREIGN-TYPE (FOREIGN-FUNCTIONS::NAME FOREIGN-FUNCTIONS::DEFINITION)) (FOREIGN-FUNCTIONS:WITH-STACK-FOBJECT ((FOREIGN-FUNCTIONS::VAR TYPE &REST FOREIGN-FUNCTIONS::ETC) &REST FOREIGN-FUNCTIONS::BODY)) (FOREIGN-FUNCTIONS:DEFUN-C-CALLABLE (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (FOREIGN-FUNCTIONS:DEFUN-FOREIGN-CALLABLE (FOREIGN-FUNCTIONS::NAME ARGLIST &REST FOREIGN-FUNCTIONS::BODY)) (FOREIGN-FUNCTIONS:DEF-FOREIGN-VARIABLE (FOREIGN-FUNCTIONS::NAME-AND-OPTIONS &KEY TYPE FOREIGN-FUNCTIONS::CONVENTION)) (FOREIGN-FUNCTIONS:DEF-C-TYPEDEF (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (FOREIGN-FUNCTIONS:DEF-C-TYPE (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (FOREIGN-FUNCTIONS:WITH-STACK-FOBJECTS (FOREIGN-FUNCTIONS::BIND-CLAUSES &REST FOREIGN-FUNCTIONS::BODY)) (FOREIGN-FUNCTIONS:DEFFOREIGN (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (FOREIGN-FUNCTIONS::DEF-PRIM-TYPE (FOREIGN-FUNCTIONS::NAME FOREIGN-FUNCTIONS::BYTES FOREIGN-FUNCTIONS::ACCESS-KEY FOREIGN-FUNCTIONS::ALIGN)) (FOREIGN-FUNCTIONS::FAST-FOREIGN-POINTER-ADDRESS (FOREIGN-FUNCTIONS::FP)) (EXCL.SCM::WITH-CACHED-OPEN-FILE ((EXCL.SCM::FILENAME &REST EXCL.SCM::OPTIONS) &BODY EXCL.SCM::BODY)) (NAMED-FUNCTION (EXCL::FUNCTION-SPEC EXCL::LAMBDA-EXPRESSION)) (CREATE-NEWLINE-EF (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (REMOVE-STREAM-INSTANCE-FLAGS (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (DEFSYSTEM (DEFSYSTEM:SYSTEM-NAME DEFSYSTEM::OPTIONS &BODY DEFSYSTEM:MODULES)) (ICS-TARGET-CASE (&BODY EXCL::CLAUSES)) (WITH-STACK-LIST* ((EXCL::VAR &REST EXCL::ELEMENTS) &BODY EXCL::BODY)) (WHILE (CONDITION &REST EXCL::FORMS)) (SM (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (WITHOUT-INTERRUPTS (&BODY EXCL::BODY)) (DEF-OCTETS-TO-CHAR-MACRO (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (CALL-NEXT-FWRAPPER :NOT-FUNCTION-OR-MACRO) (DEF-EF-SWITCH-TO-RUNTIME (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (WITH-OUTPUT-TO-BUFFER ((EXCL::VAR EXCL::BUFFER &KEY EXTERNAL-FORMAT) &BODY EXCL::BODY)) (WITH-BREAKPOINTS-INSTALLED (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (WITHOUT-REDEFINITION-WARNINGS (&BODY EXCL::BODY)) (COMPOSE-EXTERNAL-FORMATS (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (WITH-INPUT-FROM-BUFFER ((EXCL::VAR EXCL::BUFFER &KEY EXCL::INDEX EXCL::START EXCL::END EXTERNAL-FORMAT) &BODY EXCL::BODY)) (DEFUN-PROTO (EXCL::NAME EXCL::VARLIST &REST EXCL::BODY)) (WITH-SIGNAL-HANDLER ((EXCL::SIGNO FUNCTION) &REST EXCL::BODY)) (DEF-LOCALE (EXCL::NAME &REST EXCL::ARGS)) (ADD-STREAM-INSTANCE-FLAGS (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (FUNCALL-STM-HANDLER (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (WITH-STREAM-CLASS (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (WITH-NAMED-READTABLE ((EXCL::NAME) &BODY EXCL::BODY)) (ADVISE (EXCL::FSPEC CLASS EXCL::NAME POSITION &REST EXCL::FORMS)) (UNADVISE (&OPTIONAL EXCL::FSPEC CLASS EXCL::NAME)) (IF* (&REST EXCL::ARGS)) (DEF-EXTERNAL-FORMAT (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (CHAR-TO-OCTETS (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (DEF-STREAM-CLASS (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (DEF-FWRAPPER (EXCL::NAME ARGLIST &REST EXCL::BODY)) (DEF-CHAR-TO-OCTETS-MACRO (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (FUNCALL-STM-HANDLER-2 (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (DEFADVICE (EXCL::FSPEC EXCL::WHERE &REST EXCL::FORMS)) (UNDEFSYSTEM (DEFSYSTEM:SYSTEM-NAME)) (TENURING (&BODY EXCL::BODY)) (UNTIL (CONDITION &REST EXCL::FORMS)) (DEF-FUNCTION-SPEC-HANDLER (SYMBOL ARGLIST &BODY EXCL::BODY)) (PRELOAD-FORMS :NOT-FUNCTION-OR-MACRO) (ERRORSET (EXCL::FORM &OPTIONAL EXCL::ANNOUNCE EXCL::CATCH-BREAKS)) (WITH-STACK-LIST ((EXCL::VAR &REST EXCL::ELEMENTS) &BODY EXCL::BODY)) (WITHOUT-PACKAGE-LOCKS (&BODY EXCL::BODY)) (LOAD-APPLICATION (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (OCTETS-TO-CHAR (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (WITH-NATIVE-STRING ((EXCL::NATIVE-STRING-VAR EXCL::STRING-EXP &KEY EXCL::START EXCL::END EXCL::NATIVE-LENGTH-VAR EXTERNAL-FORMAT) &BODY EXCL::BODY)) (EXCL::DEFAUTOCONSTRUCTOR (EXCL::NAME CLASS)) (EXCL::WITH-STRING-CONCAT (&REST EXCL::BODY)) (EXCL::COPY-USB8-UP (EXCL::FROM-VECTOR EXCL::FROM-START EXCL::TO-VECTOR EXCL::TO-START COUNT)) (EXCL::STD-INSTANCE-SLOTS (EXCL::X)) (EXCL::DEFINEF (EXCL::NAME EXCL::FORM)) (EXCL::LOOP-COLLECT-RPLACD ((EXCL::HEAD-VAR EXCL::TAIL-VAR &OPTIONAL EXCL::USER-HEAD-VAR) EXCL::FORM)) (EXCL::DEFSETF-CXXR (EXCL::NAME EXCL::ACCESS EXCL::GET-FCN EXCL::SET-FCN)) (EXCL::RESTART-CASE-IF (EXCL::PREDICATE EXCL::EXPRESSION &BODY EXCL::CLAUSES)) (EXCL::LOOP-COPYLIST* (EXCL::L)) (EXCL::WITH-LOOP-LIST-COLLECTION-HEAD ((EXCL::HEAD-VAR EXCL::TAIL-VAR &OPTIONAL EXCL::USER-HEAD-VAR) &BODY EXCL::BODY)) (EXCL::FSC-INSTANCE-SLOTS (EXCL::FIN)) (EXCL::TREF (EXCL::TRIE EXCL::KEY)) (EXCL::LOOP-ACCUMULATE-MINIMAX-VALUE (EXCL::LM EXCL::OPERATION EXCL::FORM)) (EXCL::WRAPPER-STATE (EXCL::WRAPPER)) (EXCL::INSTANCE-READ (EXCL::PV-OFFSET EXCL::PARAMETER POSITION EXCL::SLOT-NAME)) (EXCL::EFFECTIVE-METHOD-PRELOAD-FORM :NOT-FUNCTION-OR-MACRO) (EXCL::PPRINT-POP+ (EXCL::ARGS EXCL::XP)) (EXCL::WRAPPER-INSTANCE-SLOTS-LAYOUT (EXCL::WRAPPER)) (EXCL::INCF-COMPLEX (EXCL::%REFERENCE &OPTIONAL EXCL::DELTA)) (EXCL::COMPILER-DO-XREF (EXCL::NAME EXCL::RELATION)) (EXCL::REQUIRED-TOP-LEVEL-BINDING (VARIABLE EXCL::FORM-TO-EVAL)) (EXCL::WRAPPER-SPECIFIED-IN-MOP-P (EXCL::WRAPPER)) (EXCL::INTERNAL-ECASE (EXCL::KEYFORM &REST EXCL::CASES)) (EXCL::STREAM-BUILD-EF-MACROS (STREAM EXTERNAL-FORMAT)) (EXCL::SLOT-VALUE-USING-CLASS-NAME (&WHOLE EXCL::WHOLE CLASS-NAME EXCL::OBJECT EXCL::SLOTD-NAME &OPTIONAL EXCL::NAMING-SYMBOL)) (EXCL::WRAPPER-CLASS (EXCL::WRAPPER)) (EXCL::WALKER-ENVIRONMENT-BIND ((EXCL::VAR EXCL::ENV &REST EXCL::KEY-ARGS) &BODY EXCL::BODY)) (EXCL::WRAPPER-CLASS-SLOTS (EXCL::WRAPPER)) (EXCL::ICS-TARGET-ECASE (EXCL::CLAUSES)) (EXCL::GET-WALKER-TEMPLATE-INTERNAL (EXCL::X)) (EXCL::WITH-MINIMAX-VALUE (EXCL::LM &BODY EXCL::BODY)) (EXCL::DEFINE-COMPLEX-PARSER (EXCL::WHAT &OPTIONAL FUNCTION)) (EXCL::WITH-AUGMENTED-ENVIRONMENT ((EXCL::NEW-ENV EXCL::OLD-ENV &KEY EXCL::FUNCTIONS EXCL::MACROS EXCL::SYMBOL-MACROS) &BODY EXCL::BODY)) (EXCL::DEF-AUTOLOAD-GENERIC-FUNCTION (EXCL::NAME EXCL::FILE EXCL::FORMALS EXCL::ACTUALS)) (EXCL::STD-INSTANCE-LOC (EXCL::X)) (EXCL::DEFUN-PROTO-1 :NOT-FUNCTION-OR-MACRO) (EXCL::STD-INSTANCE-CLASS (EXCL::INSTANCE)) (EXCL::DEFCONSTRUCTOR (EXCL::NAME CLASS EXCL::LAMBDA-LIST &REST EXCL::KEYWORDS-AND-VALUES)) (EXCL::MACHINE-CASE (EXCL::HOST-OR-TARGET &REST EXCL::CASES)) (EXCL::DEF-WALK-HANDLER (EXCL::HANDLES &REST EXCL::BODY)) (EXCL::HANDLER-BIND-IF (EXCL::PREDICATE EXCL::BINDINGS &BODY EXCL::BODY)) (EXCL::DEFRESOURCE (EXCL::NAME &KEY EXCL::CONSTRUCTOR EXCL::INITIALIZER EXCL::REINITIALIZER EXCL::DEALLOCATOR)) (EXCL::RESTART-BIND-IF (EXCL::PREDICATE EXCL::BINDINGS &BODY EXCL::FORMS)) (EXCL::CASE-TRIE-LOOKUP (EXCL::TRIE EXCL::CODE)) (EXCL::DEFINE-WALKER-TEMPLATE (EXCL::NAME &OPTIONAL EXCL::TEMPLATE)) (EXCL::FORCE-DOCUMENTATION-STORE :NOT-FUNCTION-OR-MACRO) (EXCL::NO-TRANSFORM :NOT-FUNCTION-OR-MACRO) (EXCL::MINCF (EXCL::SYM)) (EXCL::DISCRIMINATOR-PRELOAD-FORM :NOT-FUNCTION-OR-MACRO) (EXCL::FOBJECT-WRAPPER-XFORM (EXCL::FW)) (EXCL::PRECACHE-GENERIC-FUNCTIONS (&OPTIONAL EXCL::PACKAGES)) (EXCL::INSTANCE-BOUNDP (EXCL::PV-OFFSET EXCL::PARAMETER POSITION EXCL::SLOT-NAME)) (EXCL::FOBJECT-WRAPPER-LISP (EXCL::FW)) (EXCL::WITH-KEYWORD-PAIRS ((EXCL::NAMES EXCL::EXPRESSION &OPTIONAL EXCL::KEYWORDS-VAR) &BODY EXCL::FORMS)) (EXCL::REQUIRED-STACK-GROUP-BINDING (VARIABLE EXCL::FORM-TO-EVAL)) (EXCL::SVDATA-PTR (EXCL::SV)) (EXCL::HANDLING-PRINTER-ERRORS ((EXCL::STM EXCL::OBJ) &BODY EXCL::BODY)) `(EXCL::X) (EXCL::LOOP-STORE-TABLE-DATA (SYMBOL EXCL::TABLE EXCL::DATUM)) (EXCL::INSTANCE-WRITE (EXCL::PV-OFFSET EXCL::PARAMETER POSITION EXCL::NEW-VALUE EXCL::SLOT-NAME)) (EXCL::SAFE (&REST EXCL::BODY)) (EXCL::DEF-GRAY-STREAM-CLASS (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (EXCL::_TEMPLATED-CONSTANT (EXCL::X)) (EXCL::FSC-INSTANCE-WRAPPER (EXCL::FIN)) (EXCL::PRESERVE-CNM-ARGS (EXCL::BODY)) (EXCL::ERRORSET-LIST (EXCL::FORM &OPTIONAL EXCL::ANNOUNCE EXCL::CATCH-BREAKS)) (EXCL::DEF-TR-GENERIC-HANDLER (COMPILER::FCNNAME ARGLIST &REST COMPILER::BODY)) (EXCL::WRAPPER-REF (EXCL::WRAPPER EXCL::N)) (EXCL::WITH-RESOURCE ((EXCL::OBJECT-VAR EXCL::RESOURCE-NAME &REST EXCL::INITARGS) &BODY EXCL::BODY)) (EXCL::FOBJECT-WRAPPER-MAGIC (EXCL::FW)) (EXCL::DECF-COMPLEX (EXCL::%REFERENCE &OPTIONAL EXCL::DELTA)) (EXCL::REGEXP-CHAR-LIMIT :NOT-FUNCTION-OR-MACRO) (EXCL::STD-INSTANCE-WRAPPER (EXCL::X)) (EXCL::DEFINE-SIMPLE-PARSER (EXCL::WHAT &OPTIONAL FUNCTION TYPE EXCL::VISIBLE-TYPES)) (EXCL::WITH-DYNAMIC-EXTENT-USB8-ARRAY ((EXCL::ARRAY-VAR EXCL::SIZE) &BODY EXCL::BODY)) (EXCL::FOBJECT-WRAPPER-CLASS (EXCL::FW)) (EXCL::PPRINT-LOGICAL-BLOCK+ ((EXCL::VAR EXCL::ARGS EXCL::PREFIX EXCL::SUFFIX EXCL::PER-LINE? EXCL::CIRCLE-CHECK? EXCL::ATSIGN?) &BODY EXCL::BODY)) (EXCL::WRAPPER-CLASS-HAS-SLOT-VALUE-METHODS-P (EXCL::WRAPPER)) (EXCL::DEF-AUTOLOAD-FUNCTION (EXCL::NAME EXCL::FILE)) (EXCL::WRAPPER-NUMBER (EXCL::WRAPPER)) (EXCL::UNFORCE-DOCUMENTATION-STORE :NOT-FUNCTION-OR-MACRO) (EXCL::PRELOAD-CONSTRUCTORS (&OPTIONAL EXCL::PACKAGES)) (EXCL::LISTIFY-FWRAPPER-ARGLIST :NOT-FUNCTION-OR-MACRO) (EXCL::DEF-TR-GENERIC (EXCL::FCNNAME EXCL::TRANSFORMING EXCL::EXTRA)) (EXCL::WRAPPER-VALID-INITARGS (EXCL::WRAPPER)) (EXCL::LOOP-REALLY-DESETQ (&REST EXCL::VAR-VAL-PAIRS)) (EXCL::WALK-MACROLET (EXCL::FORM)) (EXCL::SIMPLE-EFFECTIVE-METHOD-PRELOAD-FORM :NOT-FUNCTION-OR-MACRO) (EXCL::DEF-AUTOLOAD-MACRO (EXCL::NAME EXCL::FILE)) (EXCL::FOBJECT-WRAPPER-SIZE (EXCL::FW)) (EXCL::ATOMICALLY (&BODY EXCL::BODY)) (EXCL::AUSB8 (EXCL::VEC EXCL::INDEX)) (EXCL::WRAPPER-FLAGS (EXCL::WRAPPER)) (EXCL::PRESERVING-INTERRUPTS (EXCL::FORM)) (EXCL::TARGET-CLASS-CASE (&REST EXCL::CLAUSES)) (EXCL::FAST (&REST EXCL::BODY)) (EXCL::COPY-USB8 (EXCL::FROM-VECTOR EXCL::FROM-START EXCL::TO-VECTOR EXCL::TO-START COUNT)) (EXCL::WITH-UNDERLYING-SIMPLE-VECTOR ((ARRAY EXCL::SIMPLE-VECTOR-VAR &OPTIONAL EXCL::DISPLACEMENT-VAR EXCL::LENGTH-VAR EXCL::EXPLICIT-END) &BODY EXCL::BODY)) (EXCL::REHASH-IF-NEEDED (HASH-TABLE)) (EXCL::LOOP-COLLECT-ANSWER (EXCL::HEAD-VAR &OPTIONAL EXCL::USER-HEAD-VAR)) `(&REST EXCL::X) (CROSS-REFERENCE:WITH-XREF (CROSS-REFERENCE::BODY)) (CROSS-REFERENCE::DEFINE-SIMPLE-RELATION (CROSS-REFERENCE::NAME)) (CROSS-REFERENCE::DEFINE-COMPLEX-RELATION (CROSS-REFERENCE::NAME &REST CROSS-REFERENCE::SUBRELATIONS)) (CROSS-REFERENCE::DEFINE-EXHAUSTIVE-RELATION (CROSS-REFERENCE::NAME)) (CROSS-REFERENCE::GET-RELATION-INSTANCE (CROSS-REFERENCE::RELATION-NAME)) (CROSS-REFERENCE::SET-RELATION-INSTANCE (CROSS-REFERENCE::RELATION-NAME)) (CROSS-REFERENCE::ADD-RELATION-PAIR (CROSS-REFERENCE::RELATION-NAME CROSS-REFERENCE::RELATION-INSTANCE)) (CROSS-REFERENCE::GET-RELATION-PAIR (CROSS-REFERENCE::RELATION-NAME)) (COMPILER::ICS-DYN-TARGET-ECASE (&BODY COMPILER::CASES)) (COMPILER::DO-REVERSED-QUAD-LIST ((COMPILER::VAR COMPILER::PREV LIST) . COMPILER::BODY)) (COMPILER::LS-ADDR (COMPILER::STRUCT-NAME COMPILER::FIELD VARIABLE)) (COMPILER::IQE-EV (COMPILER::OP &REST COMPILER::ARGS)) (COMPILER::IQE-COMMENT (&REST COMPILER::ARGS)) (COMPILER::SIMPLE-CASE (&REST EXCL::FORMS)) (COMPILER::REMOVE-QUAD (COMPILER::QUAD)) (COMPILER::INC-LOC (COMPILER::V)) (COMPILER::CON-CLASS (COMPILER::X)) (COMPILER::LS-NOCHECK (COMPILER::STRUCT-NAME COMPILER::FIELD VARIABLE)) (COMPILER::DEF-I386-INSTR (COMPILER::NAME COMPILER::LAP-TO-ASM COMPILER::ASM-NAME COMPILER::IQIA-HANDLER &REST COMPILER::FLAGS)) (COMPILER::LS (COMPILER::STRUCT-NAME COMPILER::FIELD VARIABLE)) (COMPILER::INTO-CONTOUR-FORM (&REST COMPILER::BODY)) (COMPILER::QEP (COMPILER::OP &REST COMPILER::ARGS)) (COMPILER::CON-TREG (COMPILER::X)) (COMPILER::DO-QUAD-LIST ((COMPILER::VAR COMPILER::NEXT LIST) . COMPILER::BODY)) (COMPILER::CON-TYPE (COMPILER::X)) (COMPILER::IQ-WITH-MD-COMP-BINDINGS (&REST COMPILER::BODY)) (COMPILER::Q-ERROR-1 (COMPILER::ERROR-NAME COMPILER::ARG)) (COMPILER::Q-KILL-FCW-P (COMPILER::QUAD)) (COMPILER::IQE-DEAD-LAP :NOT-FUNCTION-OR-MACRO) (COMPILER::BIGNUM-SIGN (NUMBER)) (COMPILER::Q-FSCRATCHP (COMPILER::QUAD)) (COMPILER::DEF-I386-NATURAL-INSTR (COMPILER::NAME COMPILER::VAL)) (COMPILER::PUT-QUAD (COMPILER::QUAD COMPILER::PLACE)) (COMPILER::IQ-WITH-MULTI-VALUE (&REST COMPILER::BODY)) (COMPILER::DEF-IA-PROC (COMPILER::NAME &REST COMPILER::BODY)) (COMPILER::INSERT-QUAD-AFTER (COMPILER::QUAD COMPILER::PLACE)) (COMPILER::DEF-TR (COMPILER::FCNNAME COMPILER::TRANSFORMING ARGLIST &REST COMPILER::BODY)) (COMPILER::Q-LINKP (COMPILER::QUAD)) (COMPILER::DEF-QC (COMPILER::NAME COMPILER::NODE &BODY COMPILER::BODY)) (COMPILER::QE (COMPILER::OP &REST COMPILER::ARGS)) (COMPILER::DEF-QC-IMMED (COMPILER::NAME COMPILER::NODE &BODY COMPILER::BODY)) (COMPILER::LAPERROR (&REST COMPILER::ARGS)) (COMPILER::INSERT-QUAD-BEFORE (COMPILER::QUAD COMPILER::PLACE)) (COMPILER::INTO-BIND-FORM (&REST COMPILER::BODY)) (COMPILER::IQE (COMPILER::OP &REST COMPILER::ARGS)) (COMPILER::DEF-SYN (COMPILER::NAME COMPILER::TRANSFORMED-TO)) (COMPILER::Q-KILLP (COMPILER::QUAD &OPTIONAL COMPILER::FULL)) (COMPILER::VALID-FIRST-D (COMPILER::D)) (COMPILER::DEF-CONSTRAINT-IQ (COMPILER::NAME COMPILER::F-CON-LIST COMPILER::R-CON-LIST &REST COMPILER::ARGS)) (COMPILER::IQ-WITH-MULTI-VALUE-SEF (&REST COMPILER::BODY)) (COMPILER::QE-EV (COMPILER::OP &REST COMPILER::ARGS)) (COMPILER::DEF-MD (COMPILER::TARGET-TAG COMPILER::REALNAME COMPILER::MDNAME &REST COMPILER::BODY)) (COMPILER::DEF-PA (COMPILER::FCN-NAME COMPILER::HANDLES ARGLIST &REST COMPILER::BODY)) (COMPILER::DEF-QUAD-I386 (COMPILER::NAME COMPILER::QUAD-NAME COMPILER::ARGS &REST COMPILER::BODY)) (COMPILER::DEF-MD-IQ (&REST COMPILER::ARGS)) (COMPILER::QEP-EV (COMPILER::OP &REST COMPILER::ARGS)) (COMPILER::DEF-QC-LL-FCN-IMMED (COMPILER::NAME COMPILER::FCN &BODY COMPILER::BODY)) (COMPILER::DO-QUAD-U-REG (COMPILER::VAR COMPILER::QUAD &REST COMPILER::BODY)) (COMPILER::DEF-QC-LL-FCN (COMPILER::NAME COMPILER::FCN &BODY COMPILER::BODY)) (COMPILER::DO-QUAD-ANY-REG (COMPILER::EXTRACTOR COMPILER::VAR COMPILER::QUAD COMPILER::BODY)) (COMPILER::DEF-QC-FCN (COMPILER::NAME COMPILER::FCN COMPILER::ARG-COUNT &BODY COMPILER::BODY)) (COMPILER::DO-QUAD-LIST-TO-END ((COMPILER::VAR COMPILER::NEXT LIST) . COMPILER::BODY)) (COMPILER::IQ-WITH-ONE-VALUE (&REST COMPILER::BODY)) (COMPILER::DO-QUAD-D-REG (COMPILER::VAR COMPILER::QUAD &REST COMPILER::BODY)) (COMPILER::Q-WITH-NORMAL-COMPILER-BINDINGS (COMPILER::FORM)) (COMPILER::BB-BBSORT (COMPILER::BB)) (COMPILER::IQ-WITH-ONE-VALUE-SEF (&REST COMPILER::BODY)) (COMPILER::DEF-QC-FCN-IMMED (COMPILER::NAME COMPILER::FCN &BODY COMPILER::BODY)) (UNLESS (EXCL::TEST &REST EXCL::FORMS)) (LAMBDA (&WHOLE EXCL::LAMBDA-EXPRESSION EXCL::LAMBDA-LIST &BODY EXCL::BODY)) (WITH-CONDITION-RESTARTS (EXCL::CONDITION-FORM EXCL::RESTARTS-FORM &BODY EXCL::FORMS)) (DEFMACRO (&REST EXCL::FORM)) (DECLAIM (&REST EXCL::DECL-SPECS)) (DOTIMES ((EXCL::VAR EXCL::COUNTFORM &OPTIONAL EXCL::RESULTFORM) &BODY EXCL::BODY)) (WITH-OUTPUT-TO-STRING ((EXCL::VAR &OPTIONAL STRING &KEY EXCL::ELEMENT-TYPE) &BODY EXCL::BODY)) (MULTIPLE-VALUE-BIND ((&REST EXCL::BINDINGS) EXCL::VALUES-FORM &BODY EXCL::BODY)) (TRACE (&REST EXCL::SPECS)) (WITH-OPEN-STREAM ((EXCL::VAR STREAM) &BODY EXCL::BODY)) (DEFPARAMETER (EXCL::VAR EXCL::VAL &OPTIONAL EXCL::DOC)) (DO ((&REST EXCL::BIND-AND-ITERATE-LIST) (EXCL::END-TEST &BODY EXCL::RESULT-BODY) &BODY EXCL::BODY)) (CHECK-TYPE (EXCL::PLACE TYPE &OPTIONAL EXCL::TYPE-STRING)) (WITH-STANDARD-IO-SYNTAX (&BODY EXCL::BODY)) (CTYPECASE (EXCL::KEYPLACE &REST EXCL::CASES)) (ETYPECASE (EXCL::KEYFORM &REST EXCL::CASES)) (DECF (EXCL::REF &OPTIONAL EXCL::DELTA)) (DEFINE-SETF-EXPANDER (EXCL::ACCESS-FN EXCL::LAMBDA-LIST &BODY EXCL::BODY)) (RETURN (&OPTIONAL EXCL::RESULT)) (AND (&REST EXCL::FORMS)) (REMF (EXCL::PLACE EXCL::INDICATOR)) (WITH-PACKAGE-ITERATOR ((EXCL::NEXT-FN EXCL::PACKAGE-LIST &REST EXCL::SYMBOL-TYPES) &BODY EXCL::BODY)) (HANDLER-CASE (EXCL::FORM &REST EXCL::CASES)) (SETF (&REST EXCL::ARGS)) (CCASE (EXCL::KEYPLACE &REST EXCL::CASES)) (LOOP-FINISH :NOT-FUNCTION-OR-MACRO) (ECASE (EXCL::KEYFORM &REST EXCL::CASES)) (DEFINE-COMPILER-MACRO (&REST EXCL::FORM)) (PUSH (EXCL::VALUE EXCL::PLACE)) (POP (EXCL::PLACE)) (MULTIPLE-VALUE-LIST (EXCL::FORM)) (WITH-SIMPLE-RESTART ((RESTART-NAME EXCL::FORMAT-CONTROL &REST EXCL::FORMAT-ARGUMENTS) &BODY EXCL::FORMS)) (WHEN (EXCL::TEST &REST EXCL::FORMS)) (RESTART-CASE (EXCL::EXPRESSION &BODY EXCL::CLAUSES)) (ROTATEF (&REST EXCL::PLACES)) (PROG1 (EXCL::FIRST-FORM &BODY EXCL::BODY)) (DEFGENERIC (EXCL::FUNCTION-SPECIFIER EXCL::LAMBDA-LIST &BODY EXCL::OPTIONS)) (PRINT-UNREADABLE-OBJECT ((EXCL::OBJECT STREAM &KEY TYPE IDENTITY) &BODY EXCL::BODY)) (PUSHNEW (EXCL::VALUE EXCL::PLACE &REST EXCL::KEYS &KEY EXCL::KEY EXCL::TEST EXCL::TEST-NOT)) (DEFINE-SYMBOL-MACRO (SYMBOL EXCL::EXPANSION)) (FORMATTER (STRING)) (PROG* ((&REST EXCL::BINDINGS) &BODY EXCL::BODY)) (DEFPACKAGE (EXCL::NAME &REST EXCL::OPTIONS)) (DO* ((&REST EXCL::BIND-AND-ITERATE-LIST) (EXCL::END-TEST &BODY EXCL::RESULT-BODY) &BODY EXCL::BODY)) (RESTART-BIND (EXCL::BINDINGS &BODY EXCL::FORMS)) (DESTRUCTURING-BIND (ARGLIST EXCL::EXPR &REST EXCL::BODY)) (DEFTYPE (EXCL::NAME ARGLIST &REST EXCL::BODY)) (DEFINE-CONDITION (EXCL::NAME EXCL::SUPER-CLASS-LIST EXCL::SLOT-SPECS &REST EXCL::OPTIONS)) (WITH-OPEN-FILE ((EXCL::VAR &REST EXCL::OPEN-ARGS) &BODY EXCL::BODY)) (PROG ((&REST EXCL::BINDINGS) &BODY EXCL::BODY)) (DEFSTRUCT (EXCL::NAME-AND-OPTIONS &REST EXCL::SLOT-DESCRIPTIONS)) (PROG2 (EXCL::FIRST-FORM EXCL::SECOND-FORM &BODY EXCL::BODY)) (HANDLER-BIND (EXCL::BINDINGS &BODY EXCL::BODY)) (IN-PACKAGE (EXCL::NAME &KEY EXCL::NICKNAMES EXCL::USE)) (WITH-COMPILATION-UNIT ((&KEY EXCL::OVERRIDE EXCL::WARNINGS-HOOK) &BODY EXCL::BODY)) (WITH-SLOTS (EXCL::SLOTS EXCL::INSTANCE &BODY EXCL::BODY)) (DEFUN (EXCL::NAME EXCL::VARLIST &REST EXCL::BODY)) (WITH-ACCESSORS (EXCL::SLOTS EXCL::INSTANCE &BODY EXCL::BODY)) (SHIFTF (&REST EXCL::PLACES)) (DEFSETF (EXCL::ACCESS-FN &REST REST)) (DEFCLASS (EXCL::NAME EXCL::DIRECT-SUPERS EXCL::DIRECT-SLOTS &REST EXCL::OPTIONS)) (IGNORE-ERRORS (&REST EXCL::FORMS)) (CASE (&REST EXCL::FORM)) (STEP (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (DEFMETHOD (&REST EXCL::ARGS)) (MULTIPLE-VALUE-SETQ ((&REST EXCL::VARIABLES) EXCL::FORM)) (DEFCONSTANT (EXCL::VAR EXCL::VAL &OPTIONAL EXCL::DOC)) (DO-SYMBOLS ((EXCL::VAR &OPTIONAL PACKAGE EXCL::RESULT-FORM) &REST EXCL::FORMS)) (DEFINE-MODIFY-MACRO (EXCL::NAME EXCL::LAMBDA-LIST FUNCTION &OPTIONAL EXCL::DOC-STRING)) (ASSERT (EXCL::TEST-FORM &OPTIONAL EXCL::PLACES EXCL::DATUM &REST EXCL::ARGUMENTS)) (WITH-HASH-TABLE-ITERATOR ((EXCL::NEXT-FN HASH-TABLE) &BODY EXCL::BODY)) (DEFINE-METHOD-COMBINATION (&WHOLE EXCL::FORM &REST EXCL::ARGS)) (DO-ALL-SYMBOLS ((EXCL::VAR &OPTIONAL EXCL::RESULT-FORM) &REST EXCL::FORMS)) (PSETQ (&REST EXCL::LIST-OF-VARS-AND-VALUES)) (DEFVAR (EXCL::VAR &OPTIONAL EXCL::VAL EXCL::DOC)) (INCF (EXCL::REF &OPTIONAL EXCL::DELTA)) (NTH-VALUE (EXCL::N EXCL::FORM)) (DO-EXTERNAL-SYMBOLS ((EXCL::VAR &OPTIONAL PACKAGE EXCL::RESULT-FORM) &REST EXCL::FORMS)) (UNTRACE (&REST EXCL::FUNCTION-SPECS)) (PPRINT-LOGICAL-BLOCK ((EXCL::STREAM-SYMBOL LIST &KEY EXCL::PREFIX EXCL::PER-LINE-PREFIX EXCL::SUFFIX) &BODY EXCL::BODY)) (PSETF (&REST EXCL::ARGS)) (WITH-INPUT-FROM-STRING ((EXCL::VAR STRING &KEY EXCL::INDEX EXCL::START EXCL::END) &BODY EXCL::BODY)) (COND (&REST EXCL::CLAUSES)) (OR (&REST EXCL::FORMS)) (TIME (EXCL::FORM)) (LOOP (&REST EXCL::KEYWORDS-AND-FORMS)) (DOLIST ((EXCL::VAR EXCL::LISTFORM &OPTIONAL EXCL::RESULTFORM) &BODY EXCL::BODY)) (TYPECASE (EXCL::OBJ &REST EXCL::CLAUSES)) (ACL-SOCKET:WITH-PENDING-CONNECT (&REST ACL-SOCKET::BODY)) (ACL-SOCKET::BOGUS-DNS-RECORD :NOT-FUNCTION-OR-MACRO) (ACL-SOCKET::WAIT-FOR-INPUT (ACL-SOCKET::SOCKET-FD))) CL-USER>

2 1

[slime-devel] Splitting slime.el
by Sean O'Rourke 05 Apr '04

05 Apr '04

Right now slime.el is 6250 lines, which makes it one of the larger programming modes line-count-wise. Besides making byte-compilation frustratingly slow, this size hides useful sub-components that (IMHO) could be made into their own, separate modules and used outside of Slime. For example, once the Slime-specific evaluation code has been factored out, there's a nice generic Elisp REPL hiding in there. With a bit of work today, I was able to turn it into a serviceable 500-line tool for interactive Perl development. While I did away with the asynchronous I/O features for simplicity's sake, I imagine these could be kept with a bit more work. The Xref browser (which I've never seen in action, not having CMUCL at hand) could be a similarly useful component. The long-term upside of this is that many of the Slime interfaces, which are quite nice, could be used as a common face for other languages that support interactive development and introspection, like Perl, Python, and Ruby. The downside, of course, is that this would constrain Slime's development. However, since Slime is stable enough to have a manual now, this may not be such a problem. Opinions? /s

2 1

Re: [slime-devel] Re: Automatic "semantic" indentation
by Bill_Clementson＠peoplesoft.com 05 Apr '04

05 Apr '04

Luke Gorrie <luke(a)bluetail.com> writes: [snipped Bill's error detail] > This is interesting. Do you get the same problem if you just directly > run this? > > (macro-indentation '((COMPILER::VAR COMPILER::NEXT LIST) . COMPILER::BODY)) Yes. I get the same segmentation violation in ACL: SWANK(5): (macro-indentation '((COMPILER::VAR COMPILER::NEXT LIST) . COMPILER::BODY)) Error: Received signal number 11 (Segmentation violation) [condition type: SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL] Restart actions (select using :continue): 0: Return to Top Level (an "abort" restart). 1: Abort entirely from this process. > >From the backtrace it looks like the error is triggered by: > > (remove '&whole '((COMPILER::VAR COMPILER::NEXT LIST) . COMPILER::BODY)) > > Which I imagine should generate an error because the list isn't > properly terminated, but a segfault seems a bit on the harsh side. Do > you have some kind of high-speed low-safety optimization setup? My settings are: ;; Optimization settings: safety 1, space 1, speed 1, debug 3. > Most importantly, is the return value of excl:arglist documented? > Hopefully we can patch it up in swank-allegro.lisp to return something > that looks like a proper lambda-list. Here is the documentation for excl:arglist: arglist Arguments: function Returns two values: if the the argument list of the operator (function, generic function, or macro) specified by the argument is known, it and t are returned. If the argument list is not known (that information can be discarded to save space), nil and nil are returned. Note that some argument lists may be uninformative (perhaps simply &rest args) when a function does all argument processing within its body. Also, the compiler may have simplified the argument list for its purposes. This function is designed to assist only. The argument list returned, even when the second returned argument is t, may not accurately describe all valid lists of arguments that can be passed to the function. (For example, the &allow-other-keys lambda-list keyword is often dropped.) -- Bill Clementson

2 1

[slime-devel] Re: Automatic "semantic" indentation
by Bill_Clementson＠peoplesoft.com 05 Apr '04

05 Apr '04

I downloaded the latest SLIME with the new macro indentation code from CVS. It seems to work under LW & CLISP on Windows; however, I get the following error under ACL on Windows: Received signal number 11 (Segmentation violation) [Condition of type SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL] Restarts: 0: [ABORT] Return to sldb level 1. 1: [ABORT] Abort handling SLIME request. 2: [ABORT] Abort entirely from this process. Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @ #x2064080a>) 1: ((FLET SWANK::SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT)) 2: (SWANK::SWANK-DEBUGGER-HOOK #<SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @ #x2064080a> #<Function SWANK-DEBUGGER-HOOK>) 3: (EXCL::INTERNAL-INVOKE-DEBUGGER "Error" #<SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL @ #x2064080a> T) 4: (ERROR SYNCHRONOUS-OPERATING-SYSTEM-SIGNAL :NAME #1="Segmentation violation" :NUMBER 11 :FORMAT-CONTROL "Received signal number ~s ~@[(~a)~]" :FORMAT-ARGUMENTS (11 #1#)) 5: (EXCL::HANDLE-PENDING-SIGNAL 11) 6: (SYSTEM::..CONTEXT-SAVING-RUNTIME-OPERATION) 7: (EXCL::LIST-REMOVE-EQL &WHOLE ((COMPILER::VAR COMPILER::NEXT LIST) . COMPILER::BODY)) 8: (SWANK::MACRO-INDENTATION ((COMPILER::VAR COMPILER::NEXT LIST) . COMPILER::BODY)) 9: (SWANK::SYMBOL-INDENTATION COMPILER::DO-QUAD-LIST-TO-END) 10: ((FLET SWANK::UPDATE-INDENTATION/DELTA-FOR-EMACS SWANK::CONSIDER) COMPILER::DO-QUAD-LIST-TO-END) 11: ((FLET SWANK::UPDATE-INDENTATION/DELTA-FOR-EMACS #:G1957) COMPILER::DO-QUAD-LIST-TO-END COMPILER::DO-QUAD-LIST-TO-END) 12: (MAPHASH #<Closure (FLET SWANK::UPDATE-INDENTATION/DELTA-FOR-EMACS #:G1957) @ #x9b2e71a> #<SYMBOL hash-table (sans values) with 2951 entries @ #x200e94ca>) 13: (SWANK::UPDATE-INDENTATION/DELTA-FOR-EMACS #<EQ hash-table with 30 entries @ #x205a3c1a> (#<The ACL-SOCKET package> #<The ACLMOP package> #<The COMMON-LISP package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G10 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The LEP package> #<The LEP-IO package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TOP-LEVEL package>)) 14: (SWANK::PERFORM-INDENTATION-UPDATE #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/4005 to #1#/1722 @ #x205b9392> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/1723 to #1#/1724 @ #x205a41aa> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x205a4a3a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM @ #x205a4a22> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(5f8)[4] receive @ #x205b824a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(72c)[5] waiting for input @ #x205b81c2> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 30 entries @ #x205a3c1a> :INDENTATION-CACHE-PACKAGES NIL) (#<The ACL-SOCKET package> #<The ACLMOP package> #<The COMMON-LISP package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G10 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The LEP package> #<The LEP-IO package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The PROFILER package> #<The SWANK package> #<The SWANK-BACKEND package> #<The SWANK-COMPLETION-TEST package> #<The SWANK-IO-PACKAGE package> #<The SWANK-LOADER package> #<The SYSTEM package> #<The TOP-LEVEL package>)) 15: (SWANK::UPDATE-CONNECTION-INDENTATION #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/4005 to #1#/1722 @ #x205b9392> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/1723 to #1#/1724 @ #x205a41aa> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x205a4a3a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM @ #x205a4a22> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(5f8)[4] receive @ #x205b824a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(72c)[5] waiting for input @ #x205b81c2> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 30 entries @ #x205a3c1a> :INDENTATION-CACHE-PACKAGES NIL)) 16: (SWANK::SYNC-STATE-TO-EMACS) 17: (SWANK::EVAL-FOR-EMACS (SWANK:BACKTRACE 2 41) NIL 4) 18: (SYSTEM::..RUNTIME-OPERATION . :UNKNOWN-ARGS) 19: (FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:BACKTRACE 2 41) NIL 4) --more-- Don't know whether this is an ACL/Windows-specific error or an ACL-specific error. Does anyone else get this error with the new macro-indentation code under ACL (Windows or Linux)? -- Bill Clementson

2 1

Re: [slime-devel] Automatic "semantic" indentation
by Julian Stecklina 05 Apr '04

05 Apr '04

Luke Gorrie <luke(a)bluetail.com> writes: > Ahoy, > > I added a hopefully nice feature: Lisp teaches Emacs how to indent > macros. I found a way to do it without hacking Emacs's indentation > code at all. > >>From now on when you have a macro like: > > (defmacro foo (a b &body body) > ...) > > anywhere in your Lisp image, Emacs should know to indent calls as: > > (foo ((x y)) > (bar) > (baz) > (beer)) > > i.e. it groks &body. This is a very nice thing to have! Regards, -- Julian Stecklina Signed and encrypted mail welcome. Key-Server: pgp.mit.edu Key-ID: 0xD65B2AB5 FA38 DCD3 00EC 97B8 6DD8 D7CC 35D8 8D0E D65B 2AB5 Any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. - Greenspun's Tenth Rule of Programming

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 05 Apr '04

05 Apr '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.320 slime/ChangeLog:1.321 --- slime/ChangeLog:1.320 Thu Apr 1 17:21:23 2004 +++ slime/ChangeLog Mon Apr 5 02:27:48 2004 @@ -1,7 +1,44 @@ -2004-04-02 Lawrence Mitchell <wence(a)gmx.li> +2004-04-05 Lawrence Mitchell <wence(a)gmx.li> - * slime.el (slime-autodoc): Escape %-signs in arglist before - passing to format. + * swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*, + *swank-pprint-level*, *swank,pprint-length*): Fix typo in + docstring. + + * slime.el (slime-arglist): Don't `message' arglist directly, in + case it contains %-signs. + (slime-repl-output-face): Fix quoting. + (slime-symbol-at-point): Call `slime-symbol-name-at-point', + rather than ourselves. + (slime-check-protocol-version): Docstring fix. + +2004-04-05 Luke Gorrie <luke(a)bluetail.com> + + * doc/slime.texi (Semantic indentation): Documented new + automatically-learn-how-to-indent-macros feature. + Added auto version control header in subtitle. + + * slime.el (slime-close-parens-at-point): New command bound to + C-a C-a. Inserts close-parenthesis characters at point until the + top-level form becomes well formed. Could perhaps be made fancier. + (slime-update-indentation): New command to update indentation + information (`common-lisp-indent-function' properties) based on + macro information extracted from Lisp. This happens + automatically, the command is just to force a full rescan. + + * swank.lisp (connection): Added slots to track indentation caching. + (*connections*): List of all open connections. + (default-connection): Function to get a "default" + connection. This is intended to support globally using the + debugger hook outside the context of a SLIME request, which is + broken at present. + (with-connection): Don't setup a restart: that must be done + separately. + (sync-state-to-emacs): Call `update-connection-indentation'. + (update-connection-indentation): Automatically discover how to + indent macros and tell Emacs. + + * swank-backend.lisp (arglist): Specify that strings returned + from ARGLIST should be READable. 2004-04-02 Helmut Eller <e9626484(a)stud3.tuwien.ac.at>

1 0

[slime-devel] Bad interaction between slime and repl variables in SBCL
by Lawrence Mitchell 05 Apr '04

05 Apr '04

Using the latest version of slime (2004-04-02), and SBCL 0.8.9.6, I get problems with repl variables. To whit: ; SLIME 2004-04-02 CL-USER> (find-package "CL") #<PACKAGE "COMMON-LISP"> CL-USER> * T CL-USER> + (LOAD "/opt/cvs-trees/slime/swank-loader") CL-USER> I'm not sure where to start looking for problems here, since adding FORMAT statements in LISTENER-EVAL seems to set *, **, and their brethren correctly. Evaluating the same forms in a command-line SBCL give's me the expected results: > (find-package "CL") #<PACKAGE "COMMON-LISP"> > * #<PACKAGE "COMMON-LISP"> > + * > -- Lawrence Mitchell <wence(a)gmx.li>

2 2

[slime-devel] A few minor fixes.
by Lawrence Mitchell 05 Apr '04

05 Apr '04

Here are a few fixes which are sitting around in my local slime files. There's also a fix for the ChangeLog entry regarding slime-autodoc-mode, which Helmut fixed in a cleaner way than me, the entry now refers to the changed function. Index: ChangeLog =================================================================== RCS file: /project/slime/cvsroot/slime/ChangeLog,v retrieving revision 1.320 diff -u -r1.320 ChangeLog --- ChangeLog 1 Apr 2004 22:21:23 -0000 1.320 +++ ChangeLog 2 Apr 2004 21:48:36 -0000 @@ -1,7 +1,15 @@ 2004-04-02 Lawrence Mitchell <wence(a)gmx.li> - * slime.el (slime-autodoc): Escape %-signs in arglist before - passing to format. + * swank.lisp (*swank-pprint-circle*, *swank-pprint-escape*, + *swank-pprint-level*, *swank,pprint-length*): Fix typo in + docstring. + + * slime.el (slime-arglist): Don't `message' arglist directly, in + case it contains %-signs. + (slime-repl-output-face): Fix quoting. + (slime-symbol-at-point): Call `slime-symbol-name-at-point', + rather than ourselves. + (slime-check-protocol-version): Docstring fix. 2004-04-02 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> Index: slime.el =================================================================== RCS file: /project/slime/cvsroot/slime/slime.el,v retrieving revision 1.250 diff -u -r1.250 slime.el --- slime.el 1 Apr 2004 22:20:14 -0000 1.250 +++ slime.el 2 Apr 2004 21:40:13 -0000 @@ -180,7 +180,7 @@ :group 'slime) (defface slime-repl-output-face - `((t (:inherit font-lock-string-face))) + '((t (:inherit font-lock-string-face))) "Face for Lisp output in the SLIME REPL." :group 'slime) @@ -818,7 +818,7 @@ (defun slime-symbol-at-point () "Return the symbol at point, otherwise nil." - (let ((name (slime-symbol-at-point))) + (let ((name (slime-symbol-name-at-point))) (and name (intern name)))) (defun slime-sexp-at-point () @@ -1125,7 +1125,7 @@ (setq slime-changelog-date (slime-changelog-date)) (defun slime-check-protocol-version (lisp-version) - "Signal an error LISP-VERSION equal to `slime-changelog-date'" + "Signal an error unless LISP-VERSION is equal to `slime-changelog-date'." (unless (and lisp-version (equal lisp-version slime-changelog-date)) (slime-disconnect) (let ((message (format "Protocol mismatch: Lisp: %s ELisp: %s" Index: swank.lisp =================================================================== RCS file: /project/slime/cvsroot/slime/swank.lisp,v retrieving revision 1.156 diff -u -r1.156 swank.lisp --- swank.lisp 30 Mar 2004 23:08:31 -0000 1.156 +++ swank.lisp 2 Apr 2004 21:42:37 -0000 @@ -1086,16 +1086,16 @@ (prin1-to-string (eval form)))))) (defvar *swank-pprint-circle* *print-circle* - "*PRINT-CIRCLE* is bound to this volue when pretty printing slime output.") + "*PRINT-CIRCLE* is bound to this value when pretty printing slime output.") (defvar *swank-pprint-escape* *print-escape* - "*PRINT-ESCAPE* is bound to this volue when pretty printing slime output.") + "*PRINT-ESCAPE* is bound to this value when pretty printing slime output.") (defvar *swank-pprint-level* *print-level* - "*PRINT-LEVEL* is bound to this volue when pretty printing slime output.") + "*PRINT-LEVEL* is bound to this value when pretty printing slime output.") (defvar *swank-pprint-length* *print-length* - "*PRINT-LENGTH* is bound to this volue when pretty printing slime output.") + "*PRINT-LENGTH* is bound to this value when pretty printing slime output.") (defun swank-pprint (list) "Bind some printer variables and pretty print each object in LIST." -- Lawrence Mitchell <wence(a)gmx.li>

2 1

[slime-devel] Automatic "semantic" indentation
by Luke Gorrie 05 Apr '04

05 Apr '04

Ahoy, I added a hopefully nice feature: Lisp teaches Emacs how to indent macros. I found a way to do it without hacking Emacs's indentation code at all. >From now on when you have a macro like: (defmacro foo (a b &body body) ...) anywhere in your Lisp image, Emacs should know to indent calls as: (foo ((x y)) (bar) (baz) (beer)) i.e. it groks &body. Details and caveats are in the manual (and I put fresh versions in my ~/misc/lisp web directory). Feedback / tweak-suggestions appreciated. -Luke

1 0

[slime-devel] [PATCH]: put working directory in header-line
by Sean O'Rourke 05 Apr '04

05 Apr '04

This minor patch compresses the existing header-line information in the REPL, and adds the current working directory (*default-pathname-defaults*). I think it's a nice bit of information to have there when you're dealing with files from multiple directories. Do other people find it useful? /s

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 02 Apr '04

02 Apr '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.318 slime/ChangeLog:1.320 --- slime/ChangeLog:1.318 Wed Mar 31 17:46:55 2004 +++ slime/ChangeLog Thu Apr 1 17:21:23 2004 @@ -1,13 +1,33 @@ +2004-04-02 Lawrence Mitchell <wence(a)gmx.li> + + * slime.el (slime-autodoc): Escape %-signs in arglist before + passing to format. + +2004-04-02 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-maybe-list-compiler-notes): Display the notes + for C-c C-c, when there are notes without a good source-location. + +2004-04-01 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * swank-sbcl.lisp: Remove the non-working workarounds for + non-existent fcntl. Reported by Brian Mastenbrook. + (preferred-communication-style): Use multithreading if futexes are + available, sigio if fcntl is present, and fd-handlers otherwise. + (resolve-note-location): Don't try to construct a source-location + if there's no context. Notes without location will be displayed + in the note-listing buffer. + +2004-04-01 Bill Clementson <Bill_Clementson(a)peoplesoft.com> + + * swank-allegro.lisp (send): Fix misplaced parens. + 2004-03-31 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> * swank-cmucl.lisp (debug-function-arglist): Return symbols if possible. (class-location): Support for experimental source-location recording. - -2004-04-01 Bill Clementson <Bill_Clementson(a)peoplesoft.com> - - * swank-allegro.lisp (send): Fix misplaced parens. 2004-03-30 Helmut Eller <e9626484(a)stud3.tuwien.ac.at>

1 0