Changeset 15109 for trunk/source/level-1


Ignore:
Timestamp:
Dec 5, 2011, 12:35:28 AM (8 years ago)
Author:
gz
Message:

Make cmd-. cmd-, and cmd-/ work in remote listeners.

Add some local error handling in swink so a broken connection doesn't lead to a death spiral.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop-lds.lisp

    r15062 r15109  
    633633    ))
    634634
    635 (declaim (notinline select-backtrace))
    636 
    637635(defmacro new-backtrace-info (dialog youngest oldest tcr condition current fake db-link level)
    638636  (let* ((cond (gensym)))
    639637  `(let* ((,cond ,condition))
    640638    (vector ,dialog ,youngest ,oldest ,tcr (cons nil (compute-restarts ,cond)) (%catch-top ,tcr) ,cond ,current ,fake ,db-link ,level))))
     639
     640(defmethod backtrace-context-continuable-p ((context vector))
     641  (not (null (find 'continue (cdr (bt.restarts context)) :key #'restart-name))))
     642
     643(declaim (notinline select-backtrace))
    641644
    642645(defun select-backtrace ()
     
    678681         (*read-suppress* nil)
    679682         (*print-readably* nil)
    680          (*default-integer-command* `(:c 0 ,(1- (length (compute-restarts condition)))))
    681          (context (new-backtrace-info nil
     683         (context (new-backtrace-info nil
    682684                                      frame-pointer
    683685                                      (if *backtrace-contexts*
     
    695697                                      (db-link)
    696698                                      (1+ *break-level*)))
     699         (*default-integer-command* `(:c 0 ,(1- (length (cdr (bt.restarts context))))))
    697700         (*backtrace-contexts* (cons context *backtrace-contexts*)))
    698701    (with-terminal-input
Note: See TracChangeset for help on using the changeset viewer.