slime-devel April 2004

slime-devel@common-lisp.net

40 participants
103 discussions

[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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

slime-devel April 2004