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

[slime-devel] Crash when invoking restarts in break loop view
by Paolo Amoroso 06 Jan '04

06 Jan '04

After updating SLIME half a dozen hours ago from the latest CVS head sources, and I have found a reproducible way of crashing it with CMUCL 18e and GNU Emacs 20.7.2 under Debian Woody. Do the following: 1) Create a file such as the following, which contains a Lisp form that generates an error: (defun toward-infinity () (/ 1 0)) (toward-infinity) 2) Evaluate each form with `C-x C-e' 3) When SLIME's break loop and backtrace view appears, press `q' or invoke another restart with the corresponding numer. The following message is displayed: ------------------------------------------------------------------------ You have encountered a bug in SLIME. The communication state machine received an event that was illegal for its current state, which means that the communication between Emacs and Lisp has lost synchronization. The connection to Lisp has therefore been closed. You can open a fresh connection with `M-x slime'. Please report this problem to your friendly neighbourhood SLIME hacker, or the mailing list at slime-devel(a)common-lisp.net. Please include in your report: A description of what you were doing when the problem occured, the version of SLIME, Emacs, and Lisp that you are using, the Lisp backtrace, if one was printed, and the information printed below: The event was: (:aborted) The state stack was: (slime-debugging-state slime-evaluating-state slime-idle-state) The content of the *slime-events* buffer: (:emacs-evaluate "(swank:getpid)" nil (:catch-tag slime-result-80998)) (activate) ; slime-evaluating-state (:%apply "slime-open-stream-to-lisp" (32806)) (:new-features ("PCL-STRUCTURES" "PORTABLE-COMMONLOOPS" "PCL" "PYTHON" "PENTIUM" "I486" "LINKAGE-TABLE" "MP" "GENCGC" "GLIBC2.1" "CMU18" "CMU18E" "RELATIVE-PACKAGE-NAMES" "CONSERVATIVE-FLOAT-TYPE" "RANDOM-MT19937" "HASH-NEW" "X86" "LINUX" "GLIBC2" "UNIX" "COMMON" "CMU" "NEW-COMPILER" "COMMON-LISP" "ANSI-CL" "IEEE-FLOATING-POINT")) (:ok 574) (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(defun toward-infinity ()\n (/ 1 0))\n\")" nil (:function (lambda (&rest --cl-rest--) (apply '(lambda (G81043 value) (save-current-buffer (set-buffer (symbol-value G81043)) (slime-show-evaluation-result value))) '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:ok "TOWARD-INFINITY") (activate) ; slime-idle-state (:emacs-evaluate "(swank:interactive-eval \"(toward-infinity)\")" nil (:function (lambda (&rest --cl-rest--) (apply '(lambda (G81081 value) (save-current-buffer (set-buffer (symbol-value G81081)) (slime-show-evaluation-result value))) '--buffer-- --cl-rest--)))) (activate) ; slime-evaluating-state (:debug 1 ("Arithmetic error DIVISION-BY-ZERO signalled.\nOperation was KERNEL::DIVISION, operands (1 0)." " [Condition of type DIVISION-BY-ZERO]") (("ABORT" "Return to Slime toplevel.") ("ABORT" "Return to Top-Level.")) ((0 "(KERNEL::INTEGER-/-INTEGER 1 0)") (1 "(/ 1 0)") (2 "(SWANK:INTERACTIVE-EVAL \"(toward-infinity)\")") (3 "(SWANK:INTERACTIVE-EVAL 1 \"(toward-infinity)\")[:EXTERNAL]") (4 "(SWANK:EVAL-STRING \"(swank:interactive-eval \\\"(toward-infinity)\\\")\" NIL)") (5 "(SWANK:EVAL-STRING 2 \"(swank:interactive-eval \\\"(toward-infinity)\\\")\" NIL)[:EXTERNAL]") (6 "(SWANK::CALL-WITH-SLIME-STREAMS #<SWANK::SLIME-INPUT-STREAM {484CB23D}> #<Stream for descriptor 8> #<Two-Way Stream, Input = #<SWANK::SLIME-INPUT-STREAM {484CB23D}>, Output = #<Stream for descriptor 8>> #<Function FUNCALL {10060F79}> ...)") (7 "(SWANK::CALL-WITH-SLIME-STREAMS 5 #<SWANK::SLIME-INPUT-STREAM {484CB23D}> #<Stream for descriptor 8> #<Two-Way Stream, Input = #<SWANK::SLIME-INPUT-STREAM {484CB23D}>, Output = #<Stream for descriptor 8>> ...)[:EXTERNAL]") (8 "(SWANK::READ-FROM-EMACS)") (9 "(SWANK::READ-FROM-EMACS 0)[:EXTERNAL]") (10 "(SWANK::SERVE-ONE-REQUEST #<Stream for descriptor 6> #<Stream for descriptor 8> #<SWANK::SLIME-INPUT-STREAM {484CB23D}> #<Two-Way Stream, Input = #<SWANK::SLIME-INPUT-STREAM {484CB23D}>, Output = #<Stream for descriptor 8>>)") (11 "(SWANK::SERVE-ONE-REQUEST 4 #<Stream for descriptor 6> #<Stream for descriptor 8> #<SWANK::SLIME-INPUT-STREAM {484CB23D}> ...)[:EXTERNAL]") (12 "(\"DEFUN REQUEST-LOOP\" #<unused-arg>)") (13 "(\"DEFUN REQUEST-LOOP\" 1 #<unused-arg>)[:EXTERNAL]") (14 "(COMMON-LISP::SUB-SERVE-EVENT 1 0)") (15 "(SYSTEM:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)") (16 "(COMMON-LISP::DO-INPUT #<Stream for Standard Input>)") (17 "(COMMON-LISP::INPUT-CHARACTER #<Stream for Standard Input> NIL (COMMON-LISP::*EOF*))") (18 "(COMMON-LISP::SYNONYM-IN #<Synonym Stream to SYSTEM:*STDIN*> NIL (COMMON-LISP::*EOF*))") (19 "(COMMON-LISP::TWO-WAY-IN #<Two-Way Stream, Input = #<Synonym Stream to SYSTEM:*STDIN*>, Output = #<Synonym Stream to SYSTEM:*STDOUT*>> NIL (COMMON-LISP::*EOF*))"))) (activate) ; slime-debugging-state (:emacs-evaluate "(swank:throw-to-toplevel)" nil (:function (lambda (_)))) (activate) ; slime-evaluating-state (:aborted) (activate) ; slime-debugging-state (:debug-return 1) (:aborted) The content of the *cl-connection* buffer: ------------------------------------------------------------------------ The *inferior-lisp* buffer contains: * ;; Swank started at port: 32804. #<Handler for INPUT on descriptor 5: #<Closure Over Function "DEFUN ACCEPT-LOOP" {484C2D71}>> * ;; Connection to Emacs lost. ;; [End-of-File on #<Stream for descriptor 6>] After the error message is displayed, SLIME becomes unusable even after starting a fresh session. Incidentally, the error message has a typo: A description of what you were doing when the problem occured, ^^^^^^^ Paolo -- Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film

1 1

[slime-devel] sldb is not working in windows version of Allegro CL
by Ignas Mikalajunas 06 Jan '04

06 Jan '04

I have managed to track down the issue to these changes betwen two versions of swank-allegro.lisp (defmethod debugger-info-for-emacs (start end) - (list (debugger-condition-for-emacs) + (list (format-condition-for-emacs) (format-restarts-for-emacs) (backtrace start end))) (defmethod frame-locals (index) (let ((frame (nth-frame index))) (loop for i from 0 below (debugger:frame-number-vars frame) - collect (list :name (to-string (debugger:frame-var-name frame i)) + collect (list :symbol (debugger:frame-var-name frame i) :id 0 :value-string (to-string (debugger:frame-var-value frame i)))))) If i am not changing the file everything works perfectly yet after applying changes to the function frame-locals slime puts nil's instead of variable names. And modifying debugger-info-for-emacs effectively disables the debuger ... Ignas Mikalajunas

2 2

[slime-devel] Patch proposal
by Ignas Mikalajunas 06 Jan '04

06 Jan '04

To solve the portability issues (i am running slime in windows) i think the following source should be included into the slime distribution: --- swank-loader.lisp 2 Jan 2004 08:16:46 -0000 1.11 +++ swank-loader.lisp 5 Jan 2004 13:24:05 -0000 @@ -66,11 +66,10 @@ (defun user-init-file () "Return the name of the user init file or nil." (let ((home (user-homedir-pathname))) - (and (probe-file home) - (probe-file (format nil - #-mswindows "~A/.swank.lisp" - #+mswindows "~A\\_swank.lsp" - (namestring (truename home))))))) + (when (probe-file home) + (probe-file (merge-pathnames (truename home) + #-mswindows (make-pathname :name ".swank" :type "lisp") + #+mswindows (make-pathname :name "_swank" :type "lsp")))))) (compile-files-if-needed-serially (list* (make-swank-pathname "swank-backend") *swank-pathname* I am not sure whether the part with #-mswindows and #+mswindows is necessary windows at least win2K handles the .swank.lisp without any problems at all. The old version of this function was not working in windows anyway ;) i had to remove the "\\". Ignas Mikalajunas

2 1

[slime-devel] Daily ChangeLog diff
by Luke Gorrie 06 Jan '04

06 Jan '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.183 slime/ChangeLog:1.184 --- slime/ChangeLog:1.183 Fri Jan 2 13:24:21 2004 +++ slime/ChangeLog Mon Jan 5 15:51:50 2004 @@ -1,3 +1,43 @@ +2004-01-05 Luke Gorrie <luke(a)bluetail.com> + + * slime.el: Multiple session support, i.e. Emacs can open + multiple connections to Lisps. The guts is there, but + user-interface is currently minimal. + (slime-net-process): Replaced with slime-net-processes. + (slime-net-send): Take process as argument. + (slime-process-available-input): Poll all connections. + (slime-connection): Current connection (process) to use for + talking to Lisp. Can be bound dynamically or buffer-local. + (slime-with-connection-buffer): Macro to enter the process-buffer + of `slime-connection' to manipulate the local variables. + (slime-stack-stack): Now buffer-local in the process-buffer of + each connection. + (slime-push-state, slime-pop-state): Operate on the stack inside + `slime-connection's process-buffer. + (slime-dispatch-event): Take optional process argument, to bind + `slime-connection' appropriately when events arrive from the + network. + (slime-def-connection-var): Macro to define variables that are + "connection-local". Such variables are used via (setf'able) + accessor functions, and their real bindings exist as local + variables in the process-buffers of connections. The accessors + automatically work on `slime-connection'. + (slime-lisp-features, slime-lisp-package, slime-pid, sldb-level): + These variables are now connection-local. + (slime-read-from-minibuffer): Inherit `slime-connection' as + buffer-local so that we complete towards the right Lisp. + (sldb-mode): Inherit `slime-connection' as buffer-local so that we + debug towards the right Lisp. + (get-sldb-buffer): New function to return (optionally create) the + SLDB buffer for the current connection. Since multiple Lisps can + be debugged simultaneously, the buffername now includes the + connection number. + (slime-connection-abort): New command to abort a connection + attempt (don't use `slime-disconnect' anymore - that closes all + connections). + (slime-execute-tests): Honor `slime-test-debug-on-error'. + (slime-next-connection): Cycle through open Lisp connections. + 2004-01-02 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> * slime.el (slime-display-output-buffer): Move the output markers @@ -98,6 +138,7 @@ (slime-open-inspector): Minor indentation fixes. (slime-net-output-funcall): Removed. Was unused. +>>>>>>> 1.183 2003-12-19 Alan Ruttenberg <alanralanr(a)comcast.net> * slime.el 1.157 fix bug in sldb-princ-locals I introduced when adding fonts to sldb

1 0

[slime-devel] Beginnings of multiple session support
by Luke Gorrie 05 Jan '04

05 Jan '04

Ahoyhoy, Glad to see you all again in 2004, and what a lovely swag of christmas patches to find under our tree :-) I've checked in basic support for Emacs to have multiple connections to Lisps simultaneously. Today this means you can connect to several Lisps at the same time, and even concurrently debug different programs like Peter described. For the future the plan is to try Gary Byers's idea of using this as the basis of multithreading support. The current user-interface is very minimal, only really usable for testing. `M-x slime-connect' now gives you the option of keeping your existing connections alive. If you have multiple connections, you can cycle your "primary" connection (used for REPL, C-c :, and so on) with `M-x slime-next-connection'. Various buffers, e.g. the debugger, apropos results, etc, are "sticky" -- they will always use the connection that they were created by. Methinks the next step is to allow multiple REPLs and have `M-x slime' support multiple *inferior-lisp*s. For now it's best to wait before trying this out as a user. The purpose of this mail is really to describe what I've done to the code, not to advertise features that actually work well :-) So - down to the code: Previously we had just one "process" (socket), used for everything: (defvar slime-net-process nil "The process (socket) connected to the CL.") But now we have many processes, one of which is in use at a time: (defvar slime-net-processes nil "List of processes (sockets) connected to Lisps.") and (defvar slime-connection nil "Network process currently in use.") `slime-net-processes' is for the low-level networking code to know what connections we have so that we can poll them for input and so on. `slime-connection' is the process that we should actually use to send commands to Lisp. We also recorded information about Lisp in global variables, like: (defvar slime-pid nil "The process id of the Lisp process.") But globals don't cut it with multiple Lisps, so now these become "connection-local variables". These variables are only used via accessor functions, and are really kept as buffer-local variables inside the process-buffer of each connection. For example: (slime-def-connection-var slime-pid nil "The process id of the Lisp process.") Then we can say (slime-pid) to get the value for the current connection (looked up in the process-buffer of `slime-connection' - the currently active connection), and use (setf (slime-pid) ...) to write it. The cute part: because all connection-specific state is in connection-local variables looked up indirectly, to "context-switch" between connections we only have to rebind `slime-connection'. This also means you can make a particular connection "sticky" for commands in a given buffer just by making a buffer-local binding of `slime-connection'. This is done in e.g. SLDB buffers to debug the right Lisp. My current plan is something like: More usable UI. Another round of backend refactoring, to pave the way for - Automatic connection-per-thread multiprocessing support. Other notes/confessions: Each connection has a separate SLDB buffer. All connections share a REPL, but this is possibly wrong and definitely not working right. Cheers, Luke

1 0

[slime-devel] Key sequence C-c C-v ] uses invalid prefix characters.
by Dirk Gerrits 05 Jan '04

05 Jan '04

Hi. I've downloaded SLIME from CVS, edited my .emacs as per the README file, and I can now use SLIME. It's great! :) There is a bit of a nag though. When I type M-x cmulisp RET, I get the error message "Key sequence C-c C-v ] uses invalid prefix characters". Only after typing M-x cmulisp RET the second time will CMUCL actually start. And then I can do M-x slime RET and all is well. I didn't get this behaviour with ILISP, so I think it's SLIME's doing. I thought it might have something to do with my GNU Emacs being a CVS version (21.3.50.2), but it happens in 21.3.1 as well. Also, there was a previous message on this list with a similar error message: http://article.gmane.org/gmane.lisp.slime.devel/227/ I've attached the debug output GNU Emacs generates. Any idea what's going on? BTW, I'm using Debian GNU/Linux unstable with XFree86 4.3.0 and GNOME 2.4, if it makes any difference. (GNU Emacs with Gtk+ 2 support is great. :)) Regards, Dirk Gerrits

2 2

[slime-devel] OpenMCL freezing emacs in slime?
by Peter Seibel 03 Jan '04

03 Jan '04

Sorry for this vague report but I'm mostly just wondering if anyone else has seen this: from time to time my Emacs on OS X (10.3) will just freeze while I'm using slime with OpenMCL. At least once, killing the dppccl process has gotten it unstuck. I'll try to get more details on what causes this but if anyone has any ideas about what's going on or how to gather more information, I'd love to hear them. My OpenMCL is 0.14.mumble and Slime is CVS as of a few days ago. -Peter -- Peter Seibel peter(a)javamonkey.com Lisp is the red pill. -- John Fraser, comp.lang.lisp

2 1

[slime-devel] swank-clisp, bug report, stream encoding proposal, and a few bugfixes
by sedachv 03 Jan '04

03 Jan '04

Hello, I sent mail to Luke about this a few days ago, but I guess he's busy partying like it's 2003 :) (if not, then please check your common-lisp.net mailbox and disregard it!). Anyway, I've gotten the swank backend mostly working on CLISP. The file is attached. On the way, I've also discovered that the slime state machine generates an error on :read-string (and gives the "you've encountered an error in SLIME" message). This should probably be fixed (and I'm not man enough to do it), as it means that interactive restarts (and probably anything else that does query-io) doesn't work. I also have a proposal stemming from potential problems with the current message-length and character encoding schemes. The stream character encoding should be specified by a slime variable (which defaults to something like "iso-8859-1"), whose value gets passed to a swank function on initialization, which then converts it to internal representation and binds it to a special variable, which is used when opening slime sockets. The message length should then be represented by arabic numerals - the first character in a message is 0-9 and indicated how many (1+) subsequent chars to read to get the message length (giving maximum message length of 10 9s). This is a lot less efficient than the current method, but it'll work with any character encoding scheme supporting arabic numerals (which the ANSI spec says are part of standard characters and so must be provided by every conforming implementation). I propose character encoding should be specified by ASCII strings like "UTF-8", with standard names used so you can just run find-symbol or equivalent on them to get at the encoding object in Lisp and Emacs. Also, here are some patches for things I've changed along the way: In slime.el (the RE doesn't work for CLISP's output, and I belive this type of formatting should be done in swank): *************** *** 3689,3697 **** for (number string) = frame do (let (label framestring) ! (setq label (format "%s" number) ! framestring string) ! (slime-insert-propertized `(frame ,frame) " " (in-sldb-face frame-label label) " " (in-sldb-face frame-line framestring) "\n"))) (let ((number (sldb-previous-frame-number))) --- 3689,3699 ---- for (number string) = frame do (let (label framestring) ! (if (string-match "\\([0-9]*:\\)?\\s *\\(.*\\)" string) ! (setq label (match-string 1 string) ! framestring (match-string 2 string)) ! (setq label "" framestring string)) ! (slime-insert-propertized `(frame ,frame) " " (in-sldb-face frame-label label) " " (in-sldb-face frame-line framestring) "\n"))) (let ((number (sldb-previous-frame-number))) In swank-backend.lisp: *************** *** 134,141 **** (defgeneric call-with-compilation-hooks (func) (:documentation "Call FUNC with hooks to trigger SLDB on compiler errors.")) ! (defmacro with-compilation-hooks ((&rest ignore) &body body) ! (declare (ignore ignore)) `(call-with-compilation-hooks (lambda () (progn ,@body)))) (defgeneric compile-string-for-emacs (string &key buffer position) --- 134,140 ---- (defgeneric call-with-compilation-hooks (func) (:documentation "Call FUNC with hooks to trigger SLDB on compiler errors.")) ! (defmacro with-compilation-hooks (() &body body) `(call-with-compilation-hooks (lambda () (progn ,@body)))) (defgeneric compile-string-for-emacs (string &key buffer position) In swank.lisp (CLISP didn't like the for loop, and neither did I :) *************** *** 434,455 **** (defun eval-region (string &optional package-update-p) "Evaluate STRING and return the result. ! If PACKAGE-UPDATE-P is non-nil, and evaluation causes a package ! change, then send Emacs an update." ! (let ((*package* *buffer-package*) ! form ! (pos 0) ! return-values ! (end-symbol (gensym))) (unwind-protect ! (loop (multiple-value-setq (form pos) ! (read-from-string string nil end-symbol :start pos)) ! (if (eq form end-symbol) ! (return return-values) ! (setq return-values ! (multiple-value-list (eval form))))) (when (and package-update-p (not (eq *package* *buffer-package*))) ! (send-to-emacs (list :new-package (shortest-package-nickname *package*))))))) (defun shortest-package-nickname (package) "Return the shortest nickname (or canonical name) of PACKAGE." --- 434,452 ---- (defun eval-region (string &optional package-update-p) "Evaluate STRING and return the result. ! If PACKAGE-UPDATE-P is non-nil, and evaluation causes a package ! change, then send Emacs an update." ! (let ((*package* *buffer-package*)) (unwind-protect ! (with-input-from-string (stream string) ! (loop for form = (read stream nil stream) ! until (eq form stream) ! for - = form ! for values = (multiple-value-list (eval form)) ! do (force-output) ! finally (return (values values -)))) (when (and package-update-p (not (eq *package* *buffer-package*))) ! (send-to-emacs (list :new-package (shortest-package-nickname *package*))))))) (defun shortest-package-nickname (package) "Return the shortest nickname (or canonical name) of PACKAGE." Happy New Years! Vladimir

3 4

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

03 Jan '04

Index: slime/ChangeLog diff -u slime/ChangeLog:1.180 slime/ChangeLog:1.183 --- slime/ChangeLog:1.180 Sun Dec 21 04:20:45 2003 +++ slime/ChangeLog Fri Jan 2 13:24:21 2004 @@ -1,3 +1,103 @@ +2004-01-02 Helmut Eller <e9626484(a)stud3.tuwien.ac.at> + + * slime.el (slime-display-output-buffer): Move the output markers + to the end of the buffer. + + * swank-clisp.lisp (frame-do-venv): Rename the :symbol property to + :name. + (format-condition-for-emacs): Replaced with + debugger-condition-for-emacs. + (backtrace): Use print-with-frame-label. + + * swank-openmcl.lisp (format-condition-for-emacs): Replaced with + debugger-condition-for-emacs. + (backtrace): Use print-with-frame-label. + (frame-locals): Rename the :symbol property to :name. + + * swank-lispworks.lisp (format-condition-for-emacs): Replaced with + debugger-condition-for-emacs. + (backtrace): Use print-with-frame-label. + (frame-locals): Rename the :symbol property to :name. + + * swank-allegro.lisp (frame-locals): Rename the :symbol property + to :name. + (format-condition-for-emacs): Replaced with + debugger-condition-for-emacs. + (backtrace): Use print-with-frame-label. + + * swank-sbcl.lisp (tracedp, toggle-trace-fdefinition) + (format-condition-for-emacs): Remove unused functions. + (format-frame-for-emacs): Use print-with-frame-label. + (compute-backtrace): Simplified. + (backtrace): Return our frame numbers. + (frame-locals): Rename the :symbol property to :name. Remove the + :validity property. + + * swank-cmucl.lisp (accept-loop, safe-definition-finding): Doc + fix. + (location-buffer=, file-xrefs-for-emacs) + (sort-contexts-by-source-path, source-path<) + (format-condition-for-emacs): Remove unused functions. + (format-frame-for-emacs): Don't include the frame number in the + description, but use the frame number for indentation. Update + callers. + (frame-locals): Rename the :symbol property to :name. + + * slime.el (slime-add-face): New function. + (sldb-add-face): Use it. + (sldb-setup): Some refactoring. + (sldb-insert-condition): New function. Factorized from + sldb-setup. Message and types are now separate. + (sldb-insert-restarts): New function. Factorized from sldb-setup. + (sldb-insert-frame): Factorized from slime-insert-frames. The + frame number in no longer part of the string describing the frame. + (sldb-insert-frames): Use it. + (sldb-show-frame-details): Print frame numbers. Fix printing of + catch tags. Move to the start of the frame before at the + beginning to get unfontified text properties. + (sldb-inspect-condition): New command. + (sldb-insert-locals): The :symbol property is now called :name. + Fix locals with :id attribute. + (slime-open-inspector): Fix the bugs I introduced last time. + + * swank.lisp (safe-condition-message): New function. + (debugger-condition-for-emacs): Used to be + format-condition-for-emacs in each backend. Separate the + condition message from the type description. Update all backends + accordingly. + (print-with-frame-label): New function. + + * slime.el (slime-hyperspec-lookup): New function. + +2004-01-02 Wolfgang Jenkner <wjenkner(a)inode.at> + + * swank-clisp.lisp: New file. Merged with Vladimir's version. + + * xref.lisp: New file. Used by swank-clisp. + + * swank-loader.lisp (user-init-file): Add CLISP files. + + * swank.lisp (eval-region, tokenize-completion): Modify loops a + bit to make CLISP happy. + + * swank-backend.lisp (with-compilation-hooks): Replace () with + (&rest _) to make CLISP happy. + + * slime.el (slime-goto-source-location): Support for CLISP style + line numbers. Split it up. + (slime-goto-location-buffer, slime-goto-location-position): New + functions. + (slime-load-system): Use slime-display-output-buffer. + (slime-repl-mode): Disable conservative scrolling. Not sure if it + was a good idea. + (sldb-insert-frames, sldb-show-frame-details, sldb-list-locals): + Minor fixes. + (sldb-insert-locals): Renamed from sldb-princ-locals. + (sldb-invoke-restart): Use slime-eval instead of + slime-oneway-eval, because interactive restarts may read input. + (slime-open-inspector): Minor indentation fixes. + (slime-net-output-funcall): Removed. Was unused. + 2003-12-19 Alan Ruttenberg <alanralanr(a)comcast.net> * slime.el 1.157 fix bug in sldb-princ-locals I introduced when adding fonts to sldb

1 0

[slime-devel] slime cuts off condition reports after 3 lines?
by Andreas Fuchs 02 Jan '04

02 Jan '04

slime seems to cut off the condition report after the third line: CL-USER> (error "foo~%~%~%bar") in *slime-events*: (:debug 1 "foo\n\n\nbar\n [Condition of type SIMPLE-ERROR]" (("ABORT" "Reduce debugger level (leaving debugger, returning to toplevel).") ("TOPLEVEL" "Restart at toplevel READ/EVAL/PRINT loop.")) ((0 "0: (SB-INT:EVAL-IN-LEXENV 2 (ERROR \"foo~%~%~%bar\") #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL :CLEANUP NIL :POLICY ((SPEED . 1) (SPACE . 1) (SAFETY . 1) (INHIBIT-WARNINGS . 1) (DEBUG . 1) (COMPILATION-SPEED . 1))))[:EXTERNAL]") (1 "1: (\"hairy arg processor for SWANK::EVAL-REGION\" \"(error \\\"foo~%~%~%bar\\\")\" T)") (2 "2: (SWANK:LISTENER-EVAL \"(error \\\"foo~%~%~%bar\\\")\")") (3 "3: (SB-INT:EVAL-IN-LEXENV 2 (SWANK:LISTENER-EVAL \"(error \\\"foo~%~%~%bar\\\")\") #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL :CLEANUP NIL :POLICY ((SPEED . 1) (SPACE . 1) (SAFETY . 1) (INHIBIT-WARNINGS . 1) (DEBUG . 1) (COMPILATION-SPEED . 1))))[:EXTERNAL]") (4 "4: (SWANK:EVAL-STRING \"(swank:listener-eval \\\"(error \\\\\\\"foo~%~%~%bar\\\\\\\")\\\")\" \"CL-USER\")") (5 "5: (SWANK::CALL-WITH-SLIME-STREAMS #<SWANK::SLIME-INPUT-STREAM {48122D11}> #<FILE-STREAM for \"a constant string\" {480D94B1}> #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK::SLIME-INPUT-STREAM {48122D11}> :OUTPUT-STREAM #<FILE-STREAM for \"a constant string\" {480D94B1}>> #<FUNCTION \"top level local call FUNCALL\" {105E073D}> (SWANK:EVAL-STRING \"(swank:listener-eval \\\"(error \\\\\\\"foo~%~%~%bar\\\\\\\")\\\")\" \"CL-USER\"))") (6 "6: (SWANK::READ-FROM-EMACS)") (7 "7: (SWANK::SERVE-REQUEST #<FILE-STREAM for \"a constant string\" {480D7AF9}> #<FILE-STREAM for \"a constant string\" {480D94B1}> #<SWANK::SLIME-INPUT-STREAM {48122D11}> #<TWO-WAY-STREAM :INPUT-STREAM #<SWANK::SLIME-INPUT-STREAM {48122D11}> :OUTPUT-STREAM #<FILE-STREAM for \"a constant string\" {480D94B1}>>)") (8 "8: (\"#'(LAMBDA (SWANK::FD) (DECLARE #) ...)\" #<unused argument>)") (9 "9: (SB-IMPL::SUB-SERVE-EVENT 2 NIL 0)[:EXTERNAL]") (10 "10: (\"hairy arg processor for top level local call SB!SYS:WAIT-UNTIL-FD-USABLE\" 0 :INPUT NIL)") (11 "11: (SB-IMPL::FROB-INPUT 1 #<FILE-STREAM for \"standard input\" {48003441}>)[:EXTERNAL]") (12 "12: (SB-IMPL::INPUT-CHARACTER 3 #<FILE-STREAM for \"standard input\" {48003441}> NIL :EOF)[:EXTERNAL]") (13 "13: (\"hairy arg processor for top level local call READ-CHAR\" #<FILE-STREAM for \"standard input\" {48003441}> NIL :EOF #<unused argument>)") (14 "14: (\"hairy arg processor for top level local call PEEK-CHAR\" NIL #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {30029079}> NIL :EOF #<unused argument>)") (15 "15: (\"hairy arg processor for SB-ACLREPL::PEEK-CHAR-NON-WHITESPACE\" #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {30029079}>)") (16 "16: (SB-ACLREPL::READ-CMD #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {30029079}>)") (17 "17: (SB-ACLREPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {30029079}> #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDOUT* {30029169}>)") (18 "18: (SB-ACLREPL::REP-ONE)") (19 "19: (\"varargs entry for SB-ACLREPL::REPL\" :BREAK-LEVEL 0 :NOPRINT NIL :INSPECT NIL :CONTINUABLE NIL)"))) (activate) ; slime-debugging-state in the condition output: foo Restarts: 0: [ABORT] Reduce debugger level (leaving debugger, returning to toplevel). 1: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop. Backtrace: 0: (SB-INT:EVAL-IN-LEXENV 2 (ERROR "foo~%~%~%bar") #S(SB-KERNEL:LEXENV :FUNS NIL :VARS NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL :LAMBDA NIL :CLEANUP NIL :POLICY ((SPEED . 1) (SPACE . 1) (SAFETY . 1) (INHIBIT-WARNINGS . 1) (DEBUG . 1) (COMPILATION-SPEED . 1))))[:EXTERNAL] 1: ("hairy arg processor for SWANK::EVAL-REGION" "(error \"foo~%~%~%bar\")" T) Hm, this looks slightly strange to me. I would like to see the full condition report output (I have some conditions that dump a terminal screen from the condition report) (-: Thanks, -- Andreas Fuchs, <asf(a)boikor.net>, asf(a)jabber.at, antifuchs

2 1