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

[slime-devel] Multi-threaded debugging in Allegro?
by Peter Seibel 04 Jul '04

04 Jul '04

So I was checking out whether multi-threaded debugging in Allegro worked and did this: CL-USER> (mp:process-run-function "foo" #'(lambda () (break))) One time it seemed to have opened up an SLDB buffer to debug the thread which I didn't notice at first and found later. But I just tried it again from a freshly started SLIME and it didn't go into SLDB. So two questions: 1) Am I doing something wrong now that's causing it not to use SLDB and 2) Assuming I am, is it supposed to silently create the SLDB buffer? Is there some way to know that a thread has ended up in the debugger? -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

2 7

[slime-devel] debug-in-emacs mod suggestion
by Alan Ruttenberg 03 Jul '04

03 Jul '04

Instead of calling compute-restarts directly call an implementation-define swank-compute-restarts. Default that function to call compute-restarts. In openmcl we would define (defun swank-compute-restarts (condition) (butlast (compute-restarts condition) 2)) or something more robust, if I can figure that out, to get rid of the restarts that blow away the slime/emacs connection. BTW, I would make the change myself but my password to the slime CVS seems to have gone bad and mail to the common-lisp.net maintainers has not yet yielded a response. Perhaps Helmut or Luke could help me out... -Alan

2 2

Re: [slime-devel] return value
by Nicolas Neuss 03 Jul '04

03 Jul '04

Rolf Wester <rolf.wester(a)ilt.fraunhofer.de> writes: > Thank you for the answer. Unfortunately C-x M-e and C-x C-e show the same > behaviour. When evaluating > (let ((v (make-array 10 :initial-element 1.0))) v) > with either C-x M-e or C-x C-e the 1.0s ore displayed in the mini-buffer > but not in the *slime-repl* nor in the *SLIME-Typeout* buffer. > > Regards > > Rolf > > P.S.: I'm using slime-1.0alpha and CMUCL18e Oops. You're right. I have returned to SLIME only recently (I have even made a pause with Lisp). Sorry for the misinformation, Nicolas.

1 0

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 03 Jul '04

03 Jul '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.452 slime/ChangeLog:1.458 --- slime/ChangeLog:1.452 Wed Jun 30 23:35:50 2004 +++ slime/ChangeLog Fri Jul 2 17:08:16 2004 @@ -1,3 +1,29 @@ +2004-07-03 Luke Gorrie <luke(a)bluetail.com> + + * hyperspec.el (common-lisp-hyperspec-section-4.0): Bugfix from + Lennart Staflin. + + * slime.el (slime-repl-clear-output): Avoid clearing the previous + REPL expression too. Patch from Andras Simon. + + * swank-backend.lisp (definterface): Don't use + NO-APPLICABLE-METHOD for default methods. Instead just define them + as regular methods with all argument types being + T. Defimplementation will then replace them by using the same + signature. N-A-M was a stupid idea! + +2004-07-02 Brian Downing <bdowning(a)lavos.net> + + * slime.el (slime-reindent-defun): Added a check for (boundp + 'slime-repl-input-start-mark) before checking the variable, as + XEmacs leaves variables unbound when `make-variable-buffer-local' + is run, while GNU Emacs binds them to NIL. + +2004-07-02 Martin Simmons <martin(a)xanalys.com> + + * swank-lispworks.lisp (dspec-stream-position, + make-dspec-location): Fix typo in features for LW 4.1 and 4.2. + 2004-07-01 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> * swank-lispworks.lisp (frame-actual-args): Bind

1 0

[slime-devel] HyperSpec 4.0, section lookup
by Lennart Staflin 03 Jul '04

03 Jul '04

I would like to suggest the following change to hyperspec.el --- hyperspec.el 30 Jun 2004 19:48:40 +0200 1.5 +++ hyperspec.el 02 Jul 2004 11:51:16 +0200 @@ -1135,10 +1135,9 @@ "") ".htm"))) -(defun common-lisp-hyperpsec-section-4.0 (indices) - (let ((string (format "%sBody/sec%s_" - common-lisp-hyperspec-root - (pop indices)))) +(defun common-lisp-hyperspec-section-4.0 (indices) + (let ((string (format "%sBody/sec_" + common-lisp-hyperspec-root))) (concat string (mapconcat (lambda (n) (format "%d" n)) That section naming works with the hyperspec copy I got. I hope it's the same for all copies. That the function name is misspelled suggests that that function hasn't been tested much. //Lennart Staflin

4 3

[slime-devel] slime-repl-clear-output
by Andras Simon 03 Jul '04

03 Jul '04

clears the last input as well; is this intentional? There's probably a better way with properties or markers, but here's what I mean: --- slime.el.~1.352.~ Wed Jun 30 23:12:30 2004 +++ slime.el Fri Jul 2 12:22:26 2004 @@ -2428,6 +2428,8 @@ (interactive) (let ((start (save-excursion (slime-repl-previous-prompt) + (forward-sexp) + (forward-line) (point))) (end (1- (slime-repl-input-line-beginning-position)))) (when (< start end) Andras

2 1

[slime-devel] AllegroCL looses ability to load a system
by Edi Weitz 02 Jul '04

02 Jul '04

Hi! Sometimes, in the middle of working on an application with SLIME (from CVS) and AllegroCL (7.0 beta) AllegroCL looses the ability to load a system with the ",l" shortcut. I usually start my sessions loading the system I'm currently working on and at this point it works fine but after a couple of breaks, backtraces and whatever it ceases to work. I'm afraid I can't provide an easy test case right now cause I'm in the middle of a project but maybe the attached backtrace is enought for the SLIME gurus. Cheers, Edi. No methods applicable for generic function #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> with args ("prodata" "LOAD-OP") of classes (STRING STRING) [Condition of type PROGRAM-ERROR] Restarts: 0: [CONTINUE] Try calling it again 1: [ABORT] Abort SLIME compilation. 2: [ABORT] Abort handling SLIME request. 3: [ABORT] Abort entirely from this (lisp) process. Backtrace: 0: (SWANK::DEBUG-IN-EMACS #<PROGRAM-ERROR @ #x721d29a2>) 1: ((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT)) 2: (SWANK:SWANK-DEBUGGER-HOOK #<PROGRAM-ERROR @ #x721d29a2> #<Function SWANK-DEBUGGER-HOOK>) 3: (CERROR "Try calling it again" PROGRAM-ERROR :FORMAT-CONTROL "No methods applicable for generic function ~s with args ~s of classes ~s" :FORMAT-ARGUMENTS (#<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> ("prodata" "LOAD-OP") (STRING STRING))) 4: ((METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION SWANK-BACKEND:OPERATE-ON-SYSTEM> "prodata" "LOAD-OP") 5: ((:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0)) 6: (SWANK::MEASURE-TIME-INTERVAL #<Closure (:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0) @ #x721d28da>) 7: (SWANK::SWANK-COMPILER #<Closure (:INTERNAL SWANK:OPERATE-ON-SYSTEM-FOR-EMACS 0) @ #x721d28da>) 8: (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") 9: (EVAL (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP")) 10: (SWANK::EVAL-FOR-EMACS (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") NIL 104) 11: (FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:OPERATE-ON-SYSTEM-FOR-EMACS "prodata" "LOAD-OP") NIL 104) 12: (SWANK::READ-FROM-EMACS) 13: ((:INTERNAL SWANK::HANDLE-REQUEST 0)) 14: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM 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 TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>)) #<Function (:INTERNAL SWANK::HANDLE-REQUEST 0)>) 15: (SWANK::HANDLE-REQUEST #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM 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 TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>))) 16: ((:INTERNAL SWANK::REPL-LOOP 0)) 17: (SWANK::CALL-WITH-REDIRECTED-IO #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM 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 TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>)) #<Closure (:INTERNAL SWANK::REPL-LOOP 0) @ #x7154e302>) 18: (SWANK::REPL-LOOP #S(SWANK::CONNECTION :SOCKET-IO #<MULTIVALENT #2=stream socket #3=connected from #1=localhost/34550 to #1#/34551 @ #x71521512> :DEDICATED-OUTPUT #4=#<MULTIVALENT #2# #3#connected from #1#/34552 to #1#/34553 @ #x71521452> :USER-INPUT #<SWANK-BACKEND::SLIME-INPUT-STREAM @ #x7154e28a> :USER-OUTPUT #4# :USER-IO #<TWO-WAY-STREAM "" @ #x7154e27a> :READER-THREAD #<MULTIPROCESSING:PROCESS reader-thread(4) waiting for input @ #x7154e162> :CONTROL-THREAD #<MULTIPROCESSING:PROCESS control-thread(3) receive @ #x7154e182> :REPL-THREAD #<MULTIPROCESSING:PROCESS repl-thread(5) @ #x7154e142> :SERVE-REQUESTS #<Function SPAWN-THREADS-FOR-CONNECTION> :READ #<Function READ-FROM-CONTROL-THREAD> :SEND #<Function SEND-TO-CONTROL-THREAD> :CLEANUP NIL :INDENTATION-CACHE #<EQ hash-table with 46 entries @ #x715520b2> :INDENTATION-CACHE-PACKAGES (#<The ACL-SOCKET package> #<The ACLMOP package> #<The ANSI-LOOP package> #<The ASDF package> #<The ASDF2044 package> #<The ASDF2045 package> #<The ASDF2046 package> #<The ASDF2047 package> #<The ASDF2048 package> #<The ASDF2050 package> #<The ASDF2051 package> #<The ASDF2054 package> #<The ASDF2055 package> #<The ASDF2056 package> #<The ASDF2058 package> #<The ASDF2059 package> #<The ASDF2060 package> #<The CL-BASE64 package> #<The CL-BASE64-SYSTEM package> #<The CL-PPCRE package> #<The CL-PPCRE.SYSTEM package> #<The CL-WHO package> #<The CL-WHO.SYSTEM package> #<The CLSQL package> #<The CLSQL-POSTGRESQL package> #<The CLSQL-POSTGRESQL-SYSTEM package> #<The CLSQL-SYS package> #<The CLSQL-SYSTEM package> #<The CLSQL-UFFI package> #<The CLSQL-UFFI-SYSTEM package> #<The CLSQL-USER package> #<The CMUCL-COMPAT package> #<The COMMON-LISP package> #<The COMMON-LISP-CONTROLLER package> #<The COMMON-LISP-USER package> #<The COMPILER package> #<The CROSS-REFERENCE package> #<The DEBUGGER package> #<The DEFSYSTEM package> #<The EXCL package> #<The EXCL.OSI package> #<The EXCL.SCM package> #<The FOREIGN-FUNCTIONS package> #<The G2 package> #<The GARBAGE package> #<The INSPECT package> #<The KEYWORD package> #<The KMR-MOP package> #<The KMRCL package> #<The KMRCL-SYSTEM package> #<The LEP package> #<The LEP-IO package> #<The MAKE package> #<The MD5 package> #<The MD5-SYSTEM package> #<The MULTIPROCESSING package> #<The NET.URI package> #<The NREGEX package> #<The POSTGRESQL package> #<The PRODATA package> #<The PRODATA.SYSTEM 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 TBNL package> #<The TBNL-DUMMY package> #<The TBNL-SYSTEM package> #<The TOP-LEVEL package> #<The UFFI package> #<The UFFI-SYSTEM package> #<The URL-REWRITE package> #<The URL-REWRITE-SYSTEM package> #<The XMLS package> #<The XMLS-SYSTEM package>))) 19: ((:INTERNAL SWANK::SPAWN-THREADS-FOR-CONNECTION 2))

2 2

[slime-devel] Allegro error I've been getting lately
by Peter Seibel 02 Jul '04

02 Jul '04

Every so often something I do at the REPL in Allegro (6.2 on GNU/Linux) will confuse SLIME. I'll see this message in the minibuffer and will get no response. error in process filter: No frame at point If I hit return a couple times I get: ; No value and the prompt back. Here's an elisp backtrace: Debugger entered--Lisp error: (error "No frame at point") signal(error ("No frame at point")) error("No frame at point") (cond (frame (car frame)) (t (error "No frame at point"))) (let ((frame ...)) (cond (frame ...) (t ...))) sldb-frame-number-at-point() (save-excursion (sldb-backward-frame) (sldb-frame-number-at-point)) sldb-previous-frame-number() (let ((number ...)) (cond (...) (t ...))) (save-excursion (mapc (function sldb-insert-frame) frames) (let (...) (cond ... ...))) (if (null frames) nil (when maximum-length (assert ...)) (save-excursion (mapc ... frames) (let ... ...))) (unless (null frames) (when maximum-length (assert ...)) (save-excursion (mapc ... frames) (let ... ...))) sldb-insert-frames(((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) (:location ... ... nil)) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) (:error "Unknown source location for READ")) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) (:location ... ... nil)) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) (:location ... ... nil)) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) (:location ... ... nil)) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) (:location ... ... nil)) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) (:error "Unknown source location for EVAL")) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) (:location ... ... nil)) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) (:error "Unknown source location for FUNCALL")) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) (:location ... ... nil)) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) (:location ... ... nil)) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) (:location ... ... nil)) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) (:location ... ... nil)) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) (:location ... ... nil)) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR"))) nil) (if (equal sldb-level level) nil (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration (setq sldb-saved-window-configuration ...)) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]" sldb-level)) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert (in-sldb-face section #("Restarts:" 0 9 ...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face section #("Backtrace:" 0 10 ...)) "\n") (setq sldb-backtrace-start-marker (point-marker)) (sldb-insert-frames (sldb-prune-initial-frames frames) nil) (run-hooks (quote sldb-hook)) (pop-to-buffer (current-buffer)) (setq buffer-read-only t) (when (and slime-stack-eval-tags ...) (recursive-edit))) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration (setq sldb-saved-window-configuration ...)) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name (format "sldb[%d]" sldb-level)) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert (in-sldb-face section #("Restarts:" 0 9 ...)) "\n") (sldb-insert-restarts restarts) (insert "\n" (in-sldb-face section #("Backtrace:" 0 10 ...)) "\n") (setq sldb-backtrace-start-marker (point-marker)) (sldb-insert-frames (sldb-prune-initial-frames frames) nil) (run-hooks (quote sldb-hook)) (pop-to-buffer (current-buffer)) (setq buffer-read-only t) (when (and slime-stack-eval-tags ...) (recursive-edit))) (save-current-buffer (set-buffer (sldb-get-buffer thread)) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration ...) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name ...) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert ... "\n") (sldb-insert-restarts restarts) (insert "\n" ... "\n") (setq sldb-backtrace-start-marker ...) (sldb-insert-frames ... nil) (run-hooks ...) (pop-to-buffer ...) (setq buffer-read-only t) (when ... ...))) (with-current-buffer (sldb-get-buffer thread) (unless (equal sldb-level level) (setq buffer-read-only nil) (sldb-mode) (unless sldb-saved-window-configuration ...) (setq slime-current-thread thread) (setq sldb-level level) (setq mode-name ...) (setq sldb-condition condition) (setq sldb-restarts restarts) (sldb-insert-condition condition) (insert ... "\n") (sldb-insert-restarts restarts) (insert "\n" ... "\n") (setq sldb-backtrace-start-marker ...) (sldb-insert-frames ... nil) (run-hooks ...) (pop-to-buffer ...) (setq buffer-read-only t) (when ... ...))) sldb-setup(1 7 (#("The symbol \"PROCESSES\" is not external in the TOP-LEVEL package. [file\nposition = 14]" 0 85 (face sldb-topline-face)) #(" [Condition of type READER-ERROR]" 0 35 (face sldb-condition-face)) nil) ((#("RETURN-VALUE" 0 12 ...) #("Return a value instead of calling PROCESSES." 0 44 ...)) (#("USE-VALUE" 0 9 ...) #("Try calling a function other than PROCESSES." 0 44 ...)) (#("STORE-VALUE" 0 11 ...) #("Setf the symbol-function of PROCESSES and call it again." 0 56 ...)) (#("ABORT" 0 5 ...) #("Abort handling SLIME request." 0 29 ...)) (#("ABORT" 0 5 ...) #("Abort entirely from this process." 0 33 ...))) ((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) (:location ... ... nil)) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) (:error "Unknown source location for READ")) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) (:location ... ... nil)) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) (:location ... ... nil)) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) (:location ... ... nil)) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) (:location ... ... nil)) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) (:error "Unknown source location for EVAL")) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) (:location ... ... nil)) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) (:error "Unknown source location for FUNCALL")) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) (:location ... ... nil)) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) (:location ... ... nil)) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) (:location ... ... nil)) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) (:location ... ... nil)) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) (:location ... ... nil)) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) (:location ... ... nil)) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) (:location ... ... nil)) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) (:error "Unknown source location for ERROR")))) slime-dispatch-event((:debug 1 7 (#("The symbol \"PROCESSES\" is not external in the TOP-LEVEL package. [file\nposition = 14]" 0 85 ...) #(" [Condition of type READER-ERROR]" 0 35 ...) nil) ((#("RETURN-VALUE" 0 12 ...) #("Return a value instead of calling PROCESSES." 0 44 ...)) (#("USE-VALUE" 0 9 ...) #("Try calling a function other than PROCESSES." 0 44 ...)) (#("STORE-VALUE" 0 11 ...) #("Setf the symbol-function of PROCESSES and call it again." 0 56 ...)) (#("ABORT" 0 5 ...) #("Abort handling SLIME request." 0 29 ...)) (#("ABORT" 0 5 ...) #("Abort entirely from this process." 0 33 ...))) ((0 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x717506aa>)" 0 52 ...) ...) (1 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) ...) (2 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x717506aa> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) ...) (3 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) ...) (4 #("(READ #1=#<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7174fa4a> NIL #1#)" 0 85 ...) ...) (5 #("(SWANK::EVAL-REGION \"(tpl:processes)\n\" T)" 0 41 ...) ...) (6 #("((:INTERNAL SWANK:LISTENER-EVAL 0))" 0 35 ...) ...) (7 #("((METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<Closure (:INTERNAL SWANK:LISTENER-EVAL 0) @ #x71750632>)" 0 109 ...) ...) (8 #("(SWANK:LISTENER-EVAL \"(tpl:processes)\n\")" 0 40 ...) ...) (9 #("(EVAL (SWANK:LISTENER-EVAL \"(tpl:processes)\n\"))" 0 47 ...) ...) (10 #("(SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 78 ...) ...) (11 #("(FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL \"(tpl:processes)\n\") \"CL-USER\" 130)" 0 86 ...) ...) (12 #("(SWANK::READ-FROM-EMACS)" 0 24 ...) ...) (13 #("(SWANK::SLDB-LOOP 6)" 0 20 ...) ...) (14 #("((:INTERNAL SWANK::DEBUG-IN-EMACS 0))" 0 37 ...) ...) (15 #("((METHOD SWANK-BACKEND:CALL-WITH-DEBUGGING-ENVIRONMENT (T)) #<Function (:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)" 0 108 ...) ...) (16 #("(SWANK::DEBUG-IN-EMACS #<READER-ERROR @ #x7183d94a>)" 0 52 ...) ...) (17 #("((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))" 0 50 ...) ...) (18 #("(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)" 0 88 ...) ...) (19 #("(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \"(tpl:processes)\" pos 14 @ #x7183d932> :FORMAT-CONTROL \"~?~@[ [file position = ~d]~]\" :FORMAT-ARGUMENTS (\"~\nThe symbol ~s is not external in the ~a package.\" (\"PROCESSES\" \"TOP-LEVEL\") 14))" 0 245 ...) ...))) #<process SLIME Lisp>) slime-process-available-input() slime-net-filter(#<process SLIME Lisp> " (17 \"((FLET SWANK:SWANK-DEBUGGER-HOOK SWANK::DEBUG-IT))\" (:location (:file \"/home/peter/cvs/slime/swank.lisp\") (:position 39988) nil)) (18 \"(SWANK:SWANK-DEBUGGER-HOOK #<READER-ERROR @ #x7183d94a> #<Function SWANK-DEBUGGER-HOOK>)\" (:location (:file \"/home/peter/cvs/slime/swank.lisp\") (:position 39988) nil)) (19 \"(ERROR READER-ERROR :STREAM #<STRING-INPUT-SIMPLE-STREAM \\\"(tpl:processes)\\\" pos 14 @ #x7183d932> :FORMAT-CONTROL \\\"~?~@[ [file position = ~d]~]\\\" :FORMAT-ARGUMENTS (\\\"~\nThe symbol ~s is not external in the ~a package.\\\" (\\\"PROCESSES\\\" \\\"TOP-LEVEL\\\") 14))\" (:error \"Unknown source location for ERROR\"))))\n..(:debug-activate 1 7)\n") -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

1 1

[slime-devel] downcased symbols inserted by SLIME-INSERT-ARGLIST
by Thomas Schilling 02 Jul '04

02 Jul '04

Would be nice if the above would be the case. (Could try to implement it myself, but I think it's faster to post my request here than to figure out how to do it-- haven't done any bigger emacs programming yet.) Thanks. -ts -- ,, \../ / <<< The LISP Effect |_\\ _==__ __ | |bb| | _________________________________________________

2 2

[slime-devel] return value
by Rolf Wester 02 Jul '04

02 Jul '04

Hi, I just started using SLIME and have a question concerning the output of return values. Is is possible to get return values printed into the *slime-repl* buffer instead of into the mini-buffer? Regards Rolf

2 1