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

[slime-devel] Arglist while in SLIME debugger
by Lynn Quam 28 Jan '05

28 Jan '05

I find it somewhat annoying that I cannot see the arglist information for functions while in the SLIME debugger. Is it possible to change SLIME-BUSY-P so that SLIME-AUTODOC-MODE and SLIME-SPACE will continue to work while inside the SLIME debugger? To implement this, the SLIME-BUSY-P needs to know the rex-continuations for the forms that cause the debugger to be entered. The SLIME debugger needs to be able to figure out the rex-continuation of the form that caused the debugger to be entered and add it to the list in the global variable *SLDB-REX-CONTINUATIONS*. When the debugger exits, it needs to remove it from the list. SLIME-BUSY-P would become something like: (defvar *sldb-rex-continuations* nil) (defun slime-busy-p () "True if Lisp has outstanding requests." (let ((sldb-continuations *sldb-rex-continuations*)) (dolist (contin (slime-rex-continuations) nil) (if (not (memq contin sldb-continuations)) (return t)))))

2 3

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

27 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.604 slime/ChangeLog:1.605 --- slime/ChangeLog:1.604 Thu Jan 20 12:05:05 2005 +++ slime/ChangeLog Thu Jan 27 11:56:22 2005 @@ -1,3 +1,28 @@ +2005-01-27 Helmut Eller <heller(a)common-lisp.net> + + * slime.el (slime-busy-p): Ignore debugged continuations to enable + arglist lookup while debugging. Suggested by Lynn Quam. + (sldb-continuations): New buffer local variable in sldb buffers to + keep track of debugged continuations. + (sldb-debugged-continuations): New function. + (sldb-buffers): Renamed from sldb-remove-killed-buffers. + (slime-eval-print): New function to insert the stream output and + the result of an evaluation in the current buffer. + (slime-eval-print-last-expression): Use it. + (slime-interactive-eval): Use slime-eval-print when a prefix + argument was given. + + * swank.lisp (*pending-continuations*, eval-in-emacs) + (debugger-info-for-emacs): Keep track of debugged continuation the + new variable *pending-continuations* and include the list of + active continuations in the debugger info for Emacs. + (eval-and-grab-output): New function. Used by slime-eval-print. + (*log-output*): Renamed from *log-io*. Use *standard-error* as + initial value instead of *terminal-io*. CMUCL opens its own tty + and that makes it hard to redirect to output with a shell. + *standard-error* writes its output to file descriptor 2. + (*canonical-package-nicknames*): Fix typo. + 2005-01-20 Helmut Eller <heller(a)common-lisp.net> * swank.lisp (parse-symbol): Don't break if the package doesn't

1 0

Re: [slime-devel] Re: C-M-x kills emacs
by Jeffrey Cunningham 24 Jan '05

24 Jan '05

On Sat Jan 22, 2005 at 09:28:51PM +0100, Helmut Eller wrote: > Jeffrey Cunningham <jeffrey(a)cunningham.net> writes: > > > Thanks once again. I'm slowy starting to figure out how this all goes > > together. Okay - everything works as you describe now, and when I try > > C-M-x in emacs it dies like always. But I can't find any sign of a > > log. I checked in the directory I started emacs in, the directory I > > started cmucl in (same one), my ~/ directory, and even checked > > /var/log/messages. Where does it put the log? > > The log is just printed to stdout in the xterm where you started the > server. After connecting with Emacs the output in the xterm should > look like below. The WRITE, READ, and DISPATCH lines are the log > messages. Just send us the entire output in the xterm. Okay. That was painful. I couldn't figure out a way to redirect the xterm output without nuking the interactive shell in cmucl, so I had to cut and paste with the scroll wheel: ; Loading #p"/home/jcunningham/.cmucl-init". CMU Common Lisp CVS release-19a 19a-release-20040728 + minimal debian patches, running on apollo.olympus.net With core: /usr/lib/cmucl/lisp.core Dumped on: Sat, 2005-01-22 10:10:54-08:00 on apollo.olympus.net For support see http://www.cons.org/cmucl/support.html Send bug reports to http://bugs.gentoo.org Type (help) for help or (quit) to exit. Loaded subsystems: Python 1.1, target Intel x86 CLOS based on Gerd's PCL 2004/04/14 03:32:47 * (load "/usr/share/emacs/site-lisp/slime/swank-loader.lisp") (setq swank::*log-events* t) ; Loading #p"/usr/share/emacs/site-lisp/slime/swank-loader.lisp". ;; Loading #p"/usr/share/common-lisp/source/swank/swank.asd". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank-backend.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/nregex.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank-source-path-parser.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank-cmucl.x86f". ;; Loading #p"/usr/lib/common-lisp/cmucl/swank/swank.x86f". T * (swank:create-server :port 0) T * ;; Swank started at port: 46486. 46486 * WRITE: (:open-dedicated-output-stream 46488) READ: (:emacs-rex (swank:connection-info) nil t 1) DISPATCHING: (:EMACS-REX (SWANK:CONNECTION-INFO) NIL T 1) DISPATCHING: (:INDENTATION-UPDATE (("lisp:with-symbol" . 1) ("WITH-SYMBOL" . 1) ("lisp:prepare-for-fast-read-char" . 1) ("PREPARE-FOR-FAST-READ-CHAR" . 1) ("lisp:with-fop-stack" . 1) ("WITH-FOP-STACK" . 1) ("lisp:def-output-routines" . 1) ("DEF-OUTPUT-ROUTINES" . 1) ("lisp:input-wrapper" . 1) ("INPUT-WRAPPER" . 1) ("lisp:with-host" . 1) ("WITH-HOST" . 1) ("lisp:output-wrapper" . 1) ("OUTPUT-WRAPPER" . 1) ("lisp:with-read-buffer" . 1) ("WITH-READ-BUFFER" . 1) ("lisp:with-pathname" . 1) ("WITH-PATHNAME" . 1) ("lisp:enumerate-matches" . 1) ("ENUMERATE-MATCHES" . 1) ("lisp:prepare-for-fast-read-byte" . 1) ("PREPARE-FOR-FAST-READ-BYTE" . 1) ("lisp:maybe-sap-maybe-string" . 1) ("MAYBE-SAP-MAYBE-STRING" . 1) ("ext:without-package-locks" . 0) ("extensions:without-package-locks" . 0) ("WITHOUT-PACKAGE-LOCKS" . 0) ("ext:enumerate-search-list" . 1) ("extensions:enumerate-search-list" . 1) ("ENUMERATE-SEARCH-LIST" . 1) ("ext:def-source-context" . 2) ("extensions:def-source-context" . 2) ("DEF-SOURCE-CONTEXT" . 2) ("ext:do-info" . 1) ("extensions:do-info" . 1) ("DO-INFO" . 1) ("ext:with-float-traps-masked" . 1) ("extensions:with-float-traps-masked" . 1) ("WITH-FLOAT-TRAPS-MASKED" . 1) ("ext:define-function-name-syntax" . 2) ("extensions:define-function-name-syntax" . 2) ("DEFINE-FUNCTION-NAME-SYNTAX" . 2) ("ext:with-c-strvec" . 1) ("extensions:with-c-strvec" . 1) ("WITH-C-STRVEC" . 1) ("kernel:descend-into" . 1) ("DESCEND-INTO" . 1) ("kernel:define-type-method" . 2) ("DEFINE-TYPE-METHOD" . 2) ("kernel:number-dispatch" . 1) ("NUMBER-DISPATCH" . 1) ("kernel:def-type-translator" . 2) ("DEF-TYPE-TRANSLATOR" . 2) ("di:do-debug-function-variables" . 1) ("debug-internals:do-debug-function-variables" . 1) ("DO-DEBUG-FUNCTION-VARIABLES" . 1) ("di:do-debug-block-locations" . 1) ("debug-internals:do-debug-block-locations" . 1) ("DO-DEBUG-BLOCK-LOCATIONS" . 1) ("di:do-debug-function-blocks" . 1) ("debug-internals:do-debug-function-blocks" . 1) ("DO-DEBUG-FUNCTION-BLOCKS" . 1) ("vm:with-tn@fp-top" . 1) ("x86:with-tn@fp-top" . 1) ("WITH-TN@FP-TOP" . 1) ("vm:break-cases" . 1) ("x86:break-cases" . 1) ("BREAK-CASES" . 1) ("vm:with-empty-tn@fp-top" . 1) ("x86:with-empty-tn@fp-top" . 1) ("WITH-EMPTY-TN@FP-TOP" . 1) ("sys:with-enabled-interrupts" . 1) ("system:with-enabled-interrupts" . 1) ("WITH-ENABLED-INTERRUPTS" . 1) ("sys:with-interrupts" . 0) ("system:with-interrupts" . 0) ("WITH-INTERRUPTS" . 0) ("sys:without-hemlock" . 0) ("system:without-hemlock" . 0) ("WITHOUT-HEMLOCK" . 0) ("sys:without-interrupts" . 0) ("system:without-interrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("old-c:defoptimizer" . 2) ("compiler:defoptimizer" . 2) ("c:defoptimizer" . 2) ("DEFOPTIMIZER" . 2) ("old-c:def-primitive-translator" . 2) ("compiler:def-primitive-translator" . 2) ("c:def-primitive-translator" . 2) ("DEF-PRIMITIVE-TRANSLATOR" . 2) ("old-c:define-move-function" . 3) ("compiler:define-move-function" . 3) ("c:define-move-function" . 3) ("DEFINE-MOVE-FUNCTION" . 3) ("old-c:def-source-transform" . 2) ("compiler:def-source-transform" . 2) ("c:def-source-transform" . 2) ("DEF-SOURCE-TRANSFORM" . 2) ("old-c:def-ir1-translator" . 2) ("compiler:def-ir1-translator" . 2) ("c:def-ir1-translator" . 2) ("DEF-IR1-TRANSLATOR" . 2) ("old-c:def-vm-support-routine" . 2) ("compiler:def-vm-support-routine" . 2) ("c:def-vm-support-routine" . 2) ("DEF-VM-SUPPORT-ROUTINE" . 2) ("old-c:with-ir1-namespace" . 0) ("compiler:with-ir1-namespace" . 0) ("c:with-ir1-namespace" . 0) ("WITH-IR1-NAMESPACE" . 0) ("old-c:do-ir2-blocks" . 1) ("compiler:do-ir2-blocks" . 1) ("c:do-ir2-blocks" . 1) ("DO-IR2-BLOCKS" . 1) ("old-c:with-dynamic-extent" . 1) ("compiler:with-dynamic-extent" . 1) ("c:with-dynamic-extent" . 1) ("WITH-DYNAMIC-EXTENT" . 1) ("old-c:do-blocks-backwards" . 1) ("compiler:do-blocks-backwards" . 1) ("c:do-blocks-backwards" . 1) ("DO-BLOCKS-BACKWARDS" . 1) ("old-c:do-packed-tns" . 1) ("compiler:do-packed-tns" . 1) ("c:do-packed-tns" . 1) ("DO-PACKED-TNS" . 1) ("old-c:do-nodes-backwards" . 1) ("compiler:do-nodes-backwards" . 1) ("c:do-nodes-backwards" . 1) ("DO-NODES-BACKWARDS" . 1) ("old-c:do-blocks" . 1) ("compiler:do-blocks" . 1) ("c:do-blocks" . 1) ("DO-BLOCKS" . 1) ("old-c:do-sc-pairs" . 1) ("compiler:do-sc-pairs" . 1) ("c:do-sc-pairs" . 1) ("DO-SC-PAIRS" . 1) ("old-c:multiple-value-pop-eval-stack" . 1) ("compiler:multiple-value-pop-eval-stack" . 1) ("c:multiple-value-pop-eval-stack" . 1) ("MULTIPLE-VALUE-POP-EVAL-STACK" . 1) ("old-c:define-modular-fun-optimizer" . 2) ("compiler:define-modular-fun-optimizer" . 2) ("c:define-modular-fun-optimizer" . 2) ("DEFINE-MODULAR-FUN-OPTIMIZER" . 2) ("old-c:with-debugger-info" . 1) ("compiler:with-debugger-info" . 1) ("c:with-debugger-info" . 1) ("WITH-DEBUGGER-INFO" . 1) ("old-c:do-uses" . 1) ("compiler:do-uses" . 1) ("c:do-uses" . 1) ("DO-USES" . 1) ("old-c:zap-in" . 1) ("compiler:zap-in" . 1) ("c:zap-in" . 1) ("ZAP-IN" . 1) ("old-c:with-debug-counters" . 0) ("compiler:with-debug-counters" . 0) ("c:with-debug-counters" . 0) ("WITH-DEBUG-COUNTERS" . 0) ("old-c:do-live-tns" . 1) ("compiler:do-live-tns" . 1) ("c:do-live-tns" . 1) ("DO-LIVE-TNS" . 1) ("old-c:with-byte-specifier" . 1) ("compiler:with-byte-specifier" . 1) ("c:with-byte-specifier" . 1) ("WITH-BYTE-SPECIFIER" . 1) ("old-c:do-nodes" . 1) ("compiler:do-nodes" . 1) ("c:do-nodes" . 1) ("DO-NODES" . 1) ("old-c:with-unbounded-interval-on-error" . 1) ("compiler:with-unbounded-interval-on-error" . 1) ("c:with-unbounded-interval-on-error" . 1) ("WITH-UNBOUNDED-INTERVAL-ON-ERROR" . 1) ("old-c:do-environment-ir2-blocks" . 1) ("compiler:do-environment-ir2-blocks" . 1) ("c:do-environment-ir2-blocks" . 1) ("DO-ENVIRONMENT-IR2-BLOCKS" . 1) ("fwrappers:define-fwrapper" . 2) ("DEFINE-FWRAPPER" . 2) ("fwrappers:do-fwrappers" . 1) ("DO-FWRAPPERS" . 1) ("conditions:with-keyword-pairs" . 1) ("WITH-KEYWORD-PAIRS" . 1) ("alien:with-alien" . 1) ("WITH-ALIEN" . 1) ("alien:with-auxiliary-alien-types" . 0) ("WITH-AUXILIARY-ALIEN-TYPES" . 0) ("alien:def-alien-type-translator" . 2) ("DEF-ALIEN-TYPE-TRANSLATOR" . 2) ("walker:walker-environment-bind" . 1) ("WALKER-ENVIRONMENT-BIND" . 1) ("walker:with-augmented-environment" . 1) ("WITH-AUGMENTED-ENVIRONMENT" . 1) ("walker:with-new-definition-in-environment" . 1) ("WITH-NEW-DEFINITION-IN-ENVIRONMENT" . 1) ("pp:with-pretty-stream" . 1) ("pretty-print:with-pretty-stream" . 1) ("WITH-PRETTY-STREAM" . 1) ("mp:with-timeout" . 1) ("multiprocessing:with-timeout" . 1) ("WITH-TIMEOUT" . 1) ("mp:without-scheduling" . 0) ("multiprocessing:without-scheduling" . 0) ("WITHOUT-SCHEDULING" . 0) ("mp:with-lock-held" . 1) ("multiprocessing:with-lock-held" . 1) ("WITH-LOCK-HELD" . 1) ("ansi-loop:with-loop-list-collection-head" . 1) ("WITH-LOOP-LIST-COLLECTION-HEAD" . 1) ("ansi-loop:with-minimax-value" . 1) ("WITH-MINIMAX-VALUE" . 1) ("new-assem:define-instruction-macro" . 2) ("DEFINE-INSTRUCTION-MACRO" . 2) ("new-assem:assemble" . 1) ("ASSEMBLE" . 1) ("new-assem:without-scheduling" . 1) ("WITHOUT-SCHEDULING" . 1) ("old-c:do-elements" . 1) ("compiler:do-elements" . 1) ("c:do-elements" . 1) ("DO-ELEMENTS" . 1) ("new-assem:note-dependencies" . 1) ("NOTE-DEPENDENCIES" . 1) ("wire:remote" . 1) ("REMOTE" . 1) ("disassem:with-cached-function" . 1) ("WITH-CACHED-FUNCTION" . 1) ("profile:with-spacereport" . 1) ("WITH-SPACEREPORT" . 1) ("pcl:with-eq-hash-table" . 1) ("WITH-EQ-HASH-TABLE" . 1) ("pcl:with-local-cache-functions" . 1) ("WITH-LOCAL-CACHE-FUNCTIONS" . 1) ("pcl:fast-lexical-method-functions" . 1) ("FAST-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:do-pv-tables" . 1) ("DO-PV-TABLES" . 1) ("pcl:with-hash-table" . 1) ("WITH-HASH-TABLE" . 1) ("pcl:pv-binding1" . 1) ("PV-BINDING1" . 1) ("pcl:bind-args" . 1) ("BIND-ARGS" . 1) ("pcl:bind-fast-lexical-method-macros" . 1) ("BIND-FAST-LEXICAL-METHOD-MACROS" . 1) ("pcl:with-dfun-wrappers" . 3) ("WITH-DFUN-WRAPPERS" . 3) ("pcl:dfun-miss" . 1) ("DFUN-MISS" . 1) ("pcl:with-pcl-lock" . 0) ("WITH-PCL-LOCK" . 0) ("pcl:define-declaration" . 2) ("DEFINE-DECLARATION" . 2) ("pcl:do-pv-calls" . 1) ("DO-PV-CALLS" . 1) ("pcl:bind-simple-lexical-method-macros" . 1) ("BIND-SIMPLE-LEXICAL-METHOD-MACROS" . 1) ("pcl:pv-binding" . 1) ("PV-BINDING" . 1) ("pcl:do-pv-slots" . 1) ("DO-PV-SLOTS" . 1) ("pcl:simple-lexical-method-functions" . 1) ("SIMPLE-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:doplist" . 2) ("DOPLIST" . 2) ("pcl:bind-lexical-method-functions" . 1) ("BIND-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:modify-cache" . 1) ("MODIFY-CACHE" . 1) ("mk:with-tell-user" . 1) ("make:with-tell-user" . 1) ("WITH-TELL-USER" . 1) ("asdf:defsystem" . 1) ("DEFSYSTEM" . 1) ("swank-backend:defimplementation" . 2) ("DEFIMPLEMENTATION" . 2) ("swank-backend:safe-definition-finding" . 0) ("SAFE-DEFINITION-FINDING" . 0) ("swank-backend:with-struct" . 2) ("WITH-STRUCT" . 2) ("swank-backend:with-compilation-hooks" . 1) ("WITH-COMPILATION-HOOKS" . 1) ("swank:with-io-redirection" . 1) ("WITH-IO-REDIRECTION" . 1) ("swank:with-temp-package" . 1) ("WITH-TEMP-PACKAGE" . 1) ("swank:with-connection" . 1) ("WITH-CONNECTION" . 1) ("swank:with-reader-error-handler" . 1) ("WITH-READER-ERROR-HANDLER" . 1) ("swank:without-interrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("swank:with-buffer-syntax" . 1) ("WITH-BUFFER-SYNTAX" . 1) ("swank:defslimefun" . 2) ("DEFSLIMEFUN" . 2) ("swank:with-describe-settings" . 1) ("WITH-DESCRIBE-SETTINGS" . 1))) WRITE: (:indentation-update (("lisp:with-symbol" . 1) ("WITH-SYMBOL" . 1) ("lisp:prepare-for-fast-read-char" . 1) ("PREPARE-FOR-FAST-READ-CHAR" . 1) ("lisp:with-fop-stack" . 1) ("WITH-FOP-STACK" . 1) ("lisp:def-output-routines" . 1) ("DEF-OUTPUT-ROUTINES" . 1) ("lisp:input-wrapper" . 1) ("INPUT-WRAPPER" . 1) ("lisp:with-host" . 1) ("WITH-HOST" . 1) ("lisp:output-wrapper" . 1) ("OUTPUT-WRAPPER" . 1) ("lisp:with-read-buffer" . 1) ("WITH-READ-BUFFER" . 1) ("lisp:with-pathname" . 1) ("WITH-PATHNAME" . 1) ("li sp:enumerate-matches" . 1) ("ENUMERATE-MATCHES" . 1) ("lisp:prepare-for-fast-read-byte" . 1) ("PREPARE-FOR-FAST-READ-BYTE" . 1) ("lisp:maybe-sap-maybe-string" . 1) ("MAYBE-SAP-MAYBE-STRING" . 1) ("ext:without-package-locks" . 0) ("extensions:without-package-locks" . 0) ("WITHOUT-PACKAGE-LOCKS" . 0) ("ext:enumerate-search-list" . 1) ("extensions:enumerate-search-list" . 1) ("ENUMERATE-SEARCH-LIST" . 1) ("ext:def-source-context" . 2) ("extensions:def-source-context" . 2) ("DEF-SOURCE-CONTEXT" . 2) ("ext:do-info" . 1) ("extensions:do-info" . 1) ("DO-INFO" . 1) ("ext:with-float-traps-masked" . 1) ("extensions:with-float-traps-masked" . 1) ("WITH-FLOAT-TRAPS-MASKED" . 1) ("ext:define-function-name-syntax" . 2) ("extensions:define-function-name-syntax" . 2) ("DEFINE-FUNCTION-NAME-SYNTAX" . 2) ("ext:with-c-strvec" . 1) ("extensions:with-c-strvec" . 1) ("WITH-C-STRVEC" . 1) ("kernel:descend-into" . 1) ("DESCEND-INTO" . 1) ("kernel:define-type-method" . 2) ("DEFINE-TYPE-METHOD" . 2) ("kernel:number-dispatch" . 1) ("NUMBER-DISPATCH" . 1) ("kernel:def-type-translator" . 2) ("DEF-TYPE-TRANSLATOR" . 2) ("di:do-debug-function-variables" . 1) ("debug-internals:do-debug-function-variables" . 1) ("DO-DEBUG-FUNCTION-VARIABLES" . 1) ("di:do-debug-block-locations" . 1) ("debug-internals:do-debug-block-locations" . 1) ("DO-DEBUG-BLOCK-LOCATIONS" . 1) ("di:do-debug-function-blocks" . 1) ("debug-internals:do-debug-function-blocks" . 1) ("DO-DEBUG-FUNCTION-BLOCKS" . 1) ("vm:with-tn@fp-top" . 1) ("x86:with-tn@fp-top" . 1) ("WITH-TN@FP-TOP" . 1) ("vm:break-cases" . 1) ("x86:break-cases" . 1) ("BREAK-CASES" . 1) ("vm:with-empty-tn@fp-top" . 1) ("x86:with-empty-tn@fp-top" . 1) ("WITH-EMPTY-TN@FP-TOP " . 1) ("sys:with-enabled-interrupts" . 1) ("system:with-enabled-interrupts" . 1) ("WITH-ENABLED-INTERRUPTS" . 1) ("sys:with-interrupts" . 0) ("system:with-interrupts" . 0) ("WITH-INTERRUPTS" . 0) ("sys:without-hemlock" . 0) ("system:without-hemlock" . 0) ("WITHOUT-HEMLOCK" . 0) ("sys:without-interrupts" . 0) ("system:without-interrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("old-c:defoptimizer" . 2) ("compiler:defoptimizer" . 2) ("c:defoptimizer" . 2) ("DEFOPTIMIZER" . 2) ("old-c:def-primitive-translator" . 2) ("compiler:def-primitive-translator" . 2) ("c:def-primitive-translator" . 2) ("DEF-PRIMITIVE-TRANSLATOR" . 2) ("old-c:define-move-function" . 3) ("compiler:define-move-function" . 3) ("c:define-move-function" . 3) ("DEFINE-MOVE-FUNCTION" . 3) ("old-c:def-source-transform" . 2) ("compiler:def-source-transform" . 2) ("c:def-source-transform" . 2) ("DEF-SOURCE-TRANSFORM" . 2) ("old-c:def-ir1-translator" . 2) ("compiler:def-ir1-translator" . 2) ("c:def-ir1-translator" . 2) ("DEF-IR1-TRANSLATOR" . 2) ("old-c:def-vm-support-routine" . 2) ("compiler:def-vm-support-routine" . 2) ("c:def-vm-support-routine" . 2) ("DEF-VM-SUPPORT-ROUTINE" . 2) ("old-c:with-ir1-namespace" . 0) ("compiler:with-ir1-namespace" . 0) ("c:with-ir1-namespace" . 0) ("WITH-IR1-NAMESPACE" . 0) ("old-c:do-ir2-blocks" . 1) ("compiler:do-ir2-blocks" . 1) ("c:do-ir2-blocks" . 1) ("DO-IR2-BLOCKS" . 1) ("old-c:with-dynamic-extent" . 1) ("compiler:with-dynamic-extent" . 1) ("c:with-dynamic-extent" . 1) ("WITH-DYNAMIC-EXTENT" . 1) ("old-c:do-blocks-backwards" . 1) ("compiler:do-blocks-backwards" . 1) ("c:do-blocks-backwards" . 1) ("DO-BLOCKS-BACKWARDS" . 1) ("old-c:do-packed-tns" . 1) ("compiler:do-packed-tns" . 1) ("c:do-packed-tns" . 1) ("DO-PACKED-TNS" . 1) ("old-c:do-nodes-backwards" . 1) ("compiler:do-nodes-backwards" . 1) ("c:do-nodes-backwards" . 1) ("DO-NODES-BACKWARDS" . 1) ("old-c:do-blocks" . 1) ("compiler:do-blocks" . 1) ("c:do-blocks" . 1) ("DO-BLOCKS" . 1) ("old-c:do-sc-pairs" . 1) ("compiler:do-sc-pairs" . 1) ("c:do-sc-pairs" . 1) ("DO-SC-PAIRS" . 1) ("old-c:multiple-value-pop-eval-stack" . 1) ("compiler:multiple-value-pop-eval-stack" . 1) ("c:multiple-value-pop-eval-stack" . 1) ("MULTIPLE-VALUE-POP-EVAL-STACK" . 1) ("old-c:define-modular-fun-optimizer" . 2) ("compiler:define-modular-fun-optimizer" . 2) ("c:define-modular-fun-optimizer" . 2) ("DEFINE-MODULAR-FUN-OPTIMIZER" . 2) ("old-c:with-debugger-info" . 1) ("compiler:with-debugger-info" . 1) ("c:with-debugger-info" . 1) ("WITH-DEBUGGER-INFO" . 1) ("old-c:do-uses" . 1) ("compiler:do-uses" . 1) ("c:do-uses" . 1) ("DO-USES" . 1) ("old-c:zap-in" . 1) ("compiler:zap-in" . 1) ("c:zap-in" . 1) ("ZAP-IN" . 1) ("old-c:with-debug-counters" . 0) ("compiler:with-debug-counters" . 0) ("c:with-debug-counters" . 0) ("WITH-DEBUG-COUNTERS" . 0) ("old-c:do-live-tns" . 1) ("compiler:do-live-tns" . 1) ("c:do-live-tns" . 1) ("DO-LIVE-TNS" . 1) ("old-c:with-byte-specifier" . 1) ("compiler:with-byte-specifier" . 1) ("c:with-byte-specifier" . 1) ("WITH-BYTE-SPECIFIER" . 1) ("old-c:do-nodes" . 1) ("compiler:do-nodes" . 1) ("c:do-nodes" . 1) ("DO-NODES" . 1) ("old-c:with-unbounded-interval-on-error" . 1) ("compiler:with-unbounded-interval-on-error" . 1) ("c:with-unbounded-interval-on-error" . 1) ("WITH-UNBOUNDED-INTERVAL-ON-ERROR" . 1) ("old-c:do-environment-ir2-blocks" . 1) ("compiler:do-environment-ir2-blocks" . 1) ("c:do-environment-ir 2-blocks" . 1) ("DO-ENVIRONMENT-IR2-BLOCKS" . 1) ("fwrappers:define-fwrapper" . 2) ("DEFINE-FWRAPPER" . 2) ("fwrappers:do-fwrappers" . 1) ("DO-FWRAPPERS" . 1) ("conditions:with-keyword-pairs" . 1) ("WITH-KEYWORD-PAIRS" . 1) ("alien:with-alien" . 1) ("WITH-ALIEN" . 1) ("alien:with-auxiliary-alien-types" . 0) ("WITH-AUXILIARY-ALIEN-TYPES" . 0) ("alien:def-alien-type-translator" . 2) ("DEF-ALIEN-TYPE-TRANSLATOR" . 2) ("walker:walker-environment-bind" . 1) ("WALKER-ENVIRONMENT-BIND" . 1) ("walker:with-augmented-environment" . 1) ("WITH-AUGMENTED-ENVIRONMENT" . 1) ("walker:with-new-definition-in-environment" . 1) ("WITH-NEW-DEFINITION-IN-ENVIRONMENT" . 1) ("pp:with-pretty-stream" . 1) ("pretty-print:with-pretty-stream" . 1) ("WITH-PRETTY-STREAM" . 1) ("mp:with-timeout" . 1) ("multiprocessing:with-timeout" . 1) ("WITH-TIMEOUT" . 1) ("mp:without-scheduling" . 0) ("multiprocessing:without-scheduling" . 0) ("WITHOUT-SCHEDULING" . 0) ("mp:with-lock-held" . 1) ("multiprocessing:with-lock-held" . 1) ("WITH-LOCK-HELD" . 1) ("ansi-loop:with-loop-list-collection-head" . 1) ("WITH-LOOP-LIST-COLLECTION-HEAD" . 1) ("ansi-loop:with-minimax-value" . 1) ("WITH-MINIMAX-VALUE" . 1) ("new-assem:define-instruction-macro" . 2) ("DEFINE-INSTRUCTION-MACRO" . 2) ("new-assem:assemble" . 1) ("ASSEMBLE" . 1) ("new-assem:without-scheduling" . 1) ("WITHOUT-SCHEDULING" . 1) ("old-c:do-elements" . 1) ("compiler:do-elements" . 1) ("c:do-elements" . 1) ("DO-ELEMENTS" . 1) ("new-assem:note-dependencies" . 1) ("NOTE-DEPENDENCIES" . 1) ("wire:remote" . 1) ("REMOTE" . 1) ("disassem:with-cached-function" . 1) ("WITH-CACHED-FUNCTION" . 1) ("profile:with-spacereport" . 1) ("WITH-SPACEREPORT" . 1) ("pcl:with-eq-hash- table" . 1) ("WITH-EQ-HASH-TABLE" . 1) ("pcl:with-local-cache-functions" . 1) ("WITH-LOCAL-CACHE-FUNCTIONS" . 1) ("pcl:fast-lexical-method-functions" . 1) ("FAST-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:do-pv-tables" . 1) ("DO-PV-TABLES" . 1) ("pcl:with-hash-table" . 1) ("WITH-HASH-TABLE" . 1) ("pcl:pv-binding1" . 1) ("PV-BINDING1" . 1) ("pcl:bind-args" . 1) ("BIND-ARGS" . 1) ("pcl:bind-fast-lexical-method-macros" . 1) ("BIND-FAST-LEXICAL-METHOD-MACROS" . 1) ("pcl:with-dfun-wrappers" . 3) ("WITH-DFUN-WRAPPERS" . 3) ("pcl:dfun-miss" . 1) ("DFUN-MISS" . 1) ("pcl:with-pcl-lock" . 0) ("WITH-PCL-LOCK" . 0) ("pcl:define-declaration" . 2) ("DEFINE-DECLARATION" . 2) ("pcl:do-pv-calls" . 1) ("DO-PV-CALLS" . 1) ("pcl:bind-simple-lexical-method-macros" . 1) ("BIND-SIMPLE-LEXICAL-METHOD-MACROS" . 1) ("pcl:pv-binding" . 1) ("PV-BINDING" . 1) ("pcl:do-pv-slots" . 1) ("DO-PV-SLOTS" . 1) ("pcl:simple-lexical-method-functions" . 1) ("SIMPLE-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:doplist" . 2) ("DOPLIST" . 2) ("pcl:bind-lexical-method-functions" . 1) ("BIND-LEXICAL-METHOD-FUNCTIONS" . 1) ("pcl:modify-cache" . 1) ("MODIFY-CACHE" . 1) ("mk:with-tell-user" . 1) ("make:with-tell-user" . 1) ("WITH-TELL-USER" . 1) ("asdf:defsystem" . 1) ("DEFSYSTEM" . 1) ("swank-backend:defimplementation" . 2) ("DEFIMPLEMENTATION" . 2) ("swank-backend:safe-definition-finding" . 0) ("SAFE-DEFINITION-FINDING" . 0) ("swank-backend:with-struct" . 2) ("WITH-STRUCT" . 2) ("swank-backend:with-compilation-hooks" . 1) ("WITH-COMPILATION-HOOKS" . 1) ("swank:with-io-redirection" . 1) ("WITH-IO-REDIRECTION" . 1) ("swank:with-temp-package" . 1) ("WITH-TEMP-PACKAGE" . 1) ("swank:with-connection" . 1) ("WITH-CONNECTION" . 1) ("swank:with-reader-error-handler" . 1) ("WITH-READER-ERROR-HANDLER" . 1) ("swank:without-in terrupts" . 0) ("WITHOUT-INTERRUPTS" . 0) ("swank:with-buffer-syntax" . 1) ("WITH-BUFFER-SYNTAX" . 1) ("swank:defslimefun" . 2) ("DEFSLIMEFUN" . 2) ("swank:with-describe-settings" . 1) ("WITH-DESCRIBE-SETTINGS" . 1))) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK (15086 "CMU Common Lisp" "cmucl" (:ASDF :MK-DEFSYSTEM :COMMON-LISP-CONTROLLER :GERDS-PCL :PCL-STRUCTURES :PORTABLE-COMMONLOOPS :PCL :CMU19 :CMU19A :PYTHON :CONSERVATIVE-FLOAT-TYPE :MODULAR-ARITH :MP :X86 :LINKAGE-TABLE :RELATIVE-PACKAGE-NAMES :LINUX :GLIBC2 :UNIX :RANDOM-MT19937 :GENCGC :PENTIUM :I486 :HASH-NEW :HEAP-OVERFLOW-CHECK :STACK-CHECKING :COMMON :COMMON-LISP :ANSI-CL :IEEE-FLOATING-POINT :CMU))) 1) WRITE: (:return (:ok (15086 "CMU Common Lisp" "cmucl" (:asdf :mk-defsystem :common-lisp-controller :gerds-pcl :pcl-structures :portable-commonloops :pcl :cmu19 :cmu19a :python :conservative-float-type :modular-arith :mp :x86 :linkage-table :relative-package-names :linux :glibc2 :unix :random-mt19937 :gencgc :pentium :i486 :hash-new :heap-overflow-check :stack-checking :common :common-lisp :ansi-cl :ieee-floating-point :cmu))) 1) ;; Connection to Emacs lost. ;; [End-of-File on #<Stream for descriptor 7>] Not very illuminating (to me). The last two lines are what happened when I pressed C-M-x in emacs after connecting it to the server. > Another question: When you connect to the server, Emacs should pop up > a *slime-repl* buffer. Do ordinary commands (e.g. typing `10 RET' or > tab-completion with `c TAB') work in that buffer? When you type RET > in the *slime-repl* buffer you should see a log message in the xterm. > > > * (load "/tmp/slime-1.0/swank-loader") > > ; Loading #p"/tmp/slime-1.0/swank-loader.lisp". > ;; Loading #p"/raid/home/helmut/.slime/fasl/cmu-Snapshot 2004-08/swank-backend.x8 > [... some more stuff ...] > t > * (setq swank:*log-events* t) > > t > * (swank:create-server :port 0) > ;; Swank started at port: 35261. > > 35261 > * WRITE: (:open-dedicated-output-stream 35263) > READ: (:emacs-rex (swank:connection-info) nil t 1) > > DISPATCHING: (:emacs-rex (swank:connection-info) nil t 1) > DISPATCHING: (:indentation-update > (("def-output-routines" . 1) ("maybe-sap-maybe-string" . 1) > [ ... lots of debug output ...] > READ: (:emacs-rex (swank:interactive-eval "(+ 1 2)") nil t 7) > > DISPATCHING: (:emacs-rex (swank:interactive-eval "(+ 1 2)") nil t 7) > DISPATCHING: (:return #<Process Initial {58004645}> (:ok "3") 7) > WRITE: (:return (:ok "3") 7) Yes, this seems to be working properly. I can use the interpeter in the *slime-repl[1]* buffer just fine. And stuff happens over in the xterm with the server. If I hit RET by itself, I get: DISPATCHING: (:EMACS-REX (SWANK:LISTENER-EVAL " ") "COMMON-LISP-USER" :REPL-THREAD 5) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK "; No value") 5) WRITE: (:return (:ok "; No value") 5) If I do something like (print "Hello World!"), it works, and the xterm prints: DISPATCHING: (:EMACS-REX (SWANK:ARGLIST-FOR-ECHO-AREA '("print")) "COMMON-LISP-USER" :REPL-THREAD 6) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK "(print object &optional stream)") 6) WRITE: (:return (:ok "(print object &optional stream)") 6) READ: (:emacs-rex (swank:listener-eval "(print \"Hello World!\") ") "COMMON-LISP-USER" :repl-thread 7) DISPATCHING: (:EMACS-REX (SWANK:LISTENER-EVAL "(print \"Hello World!\") ") "COMMON-LISP-USER" :REPL-THREAD 7) DISPATCHING: (:RETURN #<Process Initial {580087CD}> (:OK "\"Hello World!\"") 7) WRITE: (:return (:ok "\"Hello World!\"") 7) --Jeff

3 4

[slime-devel] Trouble getting slime to work on Mac OS X
by David Meredith 23 Jan '05

23 Jan '05

I'm using GNU Emacs 21.2.1 on Mac OS X 10.3.7. I'm trying to get SLIME 1.0 to work with either CMUCL or SBCL. I load slime with M-x slime and I get the following message in the *inferior-lisp* buffer: ===========MESSAGE STARTS HERE=============== CMU Common Lisp 19a+ Darwin/Exp 2004-07-25-090, running on Vigor10 With core: /usr/local/lib/cmucl/lib/lisp.core Dumped on: Sun, 2004-07-25 20:53:38+01:00 on PMSF-PowerBook.local See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target PowerPC CLOS based on Gerd's PCL 2004/04/14 03:32:47 * ; Loading #p"/Users/dave/Documents/slime-1.0/swank-loader.lisp". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank-backend.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/nregex.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank-source-path-parser.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank-cmucl.ppcf". ;; Loading #p"/Users/dave/.slime/fasl/cmu-19a+ Darwin-Exp 2004-07-25-090/swank.ppcf". Warning: These Swank interfaces are unimplemented: (ALL-THREADS FIND-THREAD INTERRUPT-THREAD RECEIVE RESTART-FRAME RETURN-FROM-FRAME SEND SPAWN THREAD-ID) T * ;; Swank started at port: 49577. 49577 * Error in function CREATE-INET-LISTENER: Error binding socket to port 0: Can't assign requested address [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Return to Top-Level. Debug (type H for help) (CREATE-INET-LISTENER 0 :STREAM :HOST 2130706433 ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/internet.lisp. 0] ======MESSAGE ENDS HERE========== Can anyone please tell me what's going wrong? Cheers, Dave Meredith

3 2

[slime-devel] C-M-x kills emacs
by Jeffrey Cunningham 22 Jan '05

22 Jan '05

Hi; I just setup SLIME by following the slime.pdf document. I was trying out the various key chords and find that C-M-x, which is supposed to evaluate the top-level form. Instead, it kills emacs - instantly. Any idea why? And what I can do to fix it? To rule out .emacs misconfiguration, I tried a temporary one consisting of only the four SLIME configuration lines: (setq inferior-lisp-program "/usr/bin/lisp") (add-to-list 'load-path "/usr/share/emacs/site-lisp/slime") (require 'slime) (slime-setup) This made no difference. I'm running emacs 21.3.1 on a Gentoo Linux system (2.6.9 kernel, xorg-x11 6.8.0-r3), and trying to use cmucl 18e-r4 (that's what it says). Here's the *Messages* after it loads: Loading documentation (source)... Loading cl-macs...done Loading documentation (source)...done Loading compile...done Loading lmenu...done Loading generic (compiled; note, source file is newer)...done Loading xclass-menubar...done Loading xwin-mouse...done Loading cb_mode...done Loading xcb2...done Loading who-calls (source)...done Loading newClass...done Loading c++-ast (compiled; note, source file is newer)...done Loading generic (compiled; note, source file is newer)...done Loading mutt...done Loading disp-table...done Loading iso-transl...done Use C-u M-x make-directory RET RET to create directory and its parents Loading cl-extra...done Loading cl-seq...done Loading easy-mmode...done Loading edmacro...done Loading byte-opt...done Loading server...done All done, jcunningham. For information about the GNU Project and its goals, type C-h C-p. Polling "/tmp/slime.742".. (Abort with `M-x slime-abort-connection'.) [2 times] Connecting to Swank on port 37069.. Initial handshake... Loading animate...done Connected. Jcunningham, this could be the start of a beautiful program. (in-package package &rest noise) (compile-file source &key (output-file t) (error-file nil) (trace-file nil) (error-output t) (load nil) (external-format :default) ((verbose *compile-verbose*) *compile-verbose*) ((print *compile-print*) *compile-print*) ((progress *compile-progress*) *compile-progress*) ((block-compile *block-compile-argument*) *block-compile-default*) ((entry-points *entry-points*) nil) ((byte-compile *byte-compile*) *byte-compile-default*)) Mark set Loading view...done Mark set [4 times] isearch-abort: Quit Making completion list... Mark set Making completion list... [2 times] Quit [2 times] Making completion list... [3 times] Mark set TIA --Jeff

4 9

[slime-devel] how do I invoke the debugger and step through a function?
by ramb＠sonic.net 21 Jan '05

21 Jan '05

I've created a function (defun tester () ...) that does almost what I want - but its not totally correct. I would like to use the slime debugger to start this function and single step through its various parts to see where the mistake is. How do I do that with slime? I am using slime-1.0 and cmucl-19a. Thanks for any help. -Ram

2 3

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

20 Jan '05

Index: slime/ChangeLog diff -u slime/ChangeLog:1.602 slime/ChangeLog:1.604 --- slime/ChangeLog:1.602 Wed Jan 19 10:32:16 2005 +++ slime/ChangeLog Thu Jan 20 12:05:05 2005 @@ -1,3 +1,19 @@ +2005-01-20 Helmut Eller <heller(a)common-lisp.net> + + * swank.lisp (parse-symbol): Don't break if the package doesn't + exist. Reported by Lynn Quam. + +2005-01-20 Ian Eslick <eslick(a)csail.mit.edu> + + * swank-allegro.lisp (restart-frame): Handle frames with arguments + better. + +2005-01-20 Edi Weitz <edi(a)agharta.de> + + * swank-allegro.lisp (handle-undefined-functions-warning): Prevent + breakage if the undefined function is called at multiple + locations. + 2005-01-19 Helmut Eller <heller(a)common-lisp.net> * swank-gray.lisp (stream-unread-char): If the char argument

1 0

[slime-devel] slime.el package name errors
by Lynn Quam 20 Jan '05

20 Jan '05

I find that slime is very unforgiving when one accidently types a nonexistent package name into a Lisp slime buffer. In CMUCL, Lisp enters the debugger, and slime selects the *sldb* buffer with the message: Type-error in LISP::PACKAGE-OR-LOSE: "" is not of type PACKAGE [Condition of type TYPE-ERROR] Restarts: 0: [CONTINUE] Make this package. ... Backtrace: 0: (LISP::PACKAGE-OR-LOSE "FEATURE-SET-PATHNAMES-CME") 1: (FIND-SYMBOL "*RADIUS-SITE-GLUE2*" "FEATURE-SET-PATHNAMES-CME") 2: ("DEFSLIMEFUN VARIABLE-DESC-FOR-ECHO-AREA") Locals: SWANK::SYM = #:INVALID SWANK::VARIABLE-NAME = #:INVALID [No catch-tags] 3: (SWANK:VARIABLE-DESC-FOR-ECHO-AREA "feature-set-pathnames-cme::*radius-site-glue2*") I appear to be unable to correct the mistake by editing the erroneous package name, because as soon as I switch to the Lisp slime buffer and position "point" at the erroneous package name, the error reoccurs placing me back in the *sldb* buffer. The same problem also occurs with slime and Allegro 6.2. Is there any simple fix to this problem?

2 1

[slime-devel] Patch for AllegroCL
by Edi Weitz 20 Jan '05

20 Jan '05

Here's a small patch for the AllegroCL backend. Without this patch it breaks for me if I invoke, say, slime-compile-and-load-file on the following file (defun foo (x) (bar x)) (defun quux (y) (bar y)) i.e. if there's more than one position where the undefined function is referenced. Maybe this is new in AllegroCL 7.0. Cheers, Edi.

2 2

[slime-devel] sldb frame restarts now work with non-null argument lists under Allegro
by Ian Eslick 20 Jan '05

20 Jan '05

I have filed a bug report with Franz to fix the incorrect implementation of the spec for 'debugger:frame-retry' that was causing the failure of frame restarts with arguments. I did find a workaround for this (highly annoying) problem. --------------------- ;;; XXX doesn't work for frames with arguments (defimplementation restart-frame (frame-number) (let ((frame (nth-frame frame-number))) (apply #'debugger:frame-retry (append (list frame (debugger:frame-function frame)) (cdr (debugger:frame-expression frame)))))) --------------------- The comment should be removed. This has been tested on keyword, optional and standard argument lists but may not work for all cases. Cheers, Ian

2 1