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

[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