Changeset 11751


Ignore:
Timestamp:
Feb 18, 2009, 4:13:36 AM (11 years ago)
Author:
gz
Message:

Make break-loop do with-terminal-input so callers don't have to

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-readloop-lds.lisp

    r11101 r11751  
    463463          (format s ", was reset to ~s ." (symbol-value bogusness)))))
    464464    (if (and *break-on-errors* (not *batch-flag*))
    465       (with-terminal-input
    466           (break-loop condition error-pointer))
     465      (break-loop condition error-pointer)
    467466      (if *batch-flag*
    468467        (abnormal-application-exit)
     
    505504        (funcall hook c hook)))
    506505    (%break-message "Debug" c fp)
    507     (with-terminal-input
    508         (break-loop c fp))))
     506    (break-loop c fp)))
    509507
    510508(defun %break-message (msg condition error-pointer &optional (prefixchar #\>))
     
    539537  (let* ((*print-readably* nil))
    540538    (%break-message msg condition error-pointer)
    541     (with-terminal-input
    542       (restart-case (break-loop condition error-pointer)
    543                     (continue () :report (lambda (stream) (write-string cont-string stream))))
    544       (fresh-line *error-output*)
    545       nil)))
     539    (restart-case (break-loop condition error-pointer)
     540      (continue () :report (lambda (stream) (write-string cont-string stream))))
     541    (fresh-line *error-output*)
     542    nil))
    546543
    547544(defun warn (condition-or-format-string &rest args)
     
    610607         (*signal-printing-errors* nil)
    611608         (*read-suppress* nil)
    612          (*print-readably* nil))
    613     (let* ((context (new-backtrace-info nil
    614                                         frame-pointer
    615                                         (if *backtrace-contexts*
    616                                           (or (child-frame
    617                                                (bt.youngest (car *backtrace-contexts*))
    618                                                nil)
    619                                               (last-frame-ptr))
    620                                           (last-frame-ptr))
    621                                         (%current-tcr)
    622                                         condition
    623                                         (%current-frame-ptr)
    624                                         #+ppc-target *fake-stack-frames*
    625                                         #+x86-target (%current-frame-ptr)
    626                                         (db-link)
    627                                         (1+ *break-level*)))
    628            (*backtrace-contexts* (cons context *backtrace-contexts*)))
     609         (*print-readably* nil)
     610         (context (new-backtrace-info nil
     611                                      frame-pointer
     612                                      (if *backtrace-contexts*
     613                                        (or (child-frame
     614                                             (bt.youngest (car *backtrace-contexts*))
     615                                             nil)
     616                                            (last-frame-ptr))
     617                                        (last-frame-ptr))
     618                                      (%current-tcr)
     619                                      condition
     620                                      (%current-frame-ptr)
     621                                      #+ppc-target *fake-stack-frames*
     622                                      #+x86-target (%current-frame-ptr)
     623                                      (db-link)
     624                                      (1+ *break-level*)))
     625         (*backtrace-contexts* (cons context *backtrace-contexts*)))
     626    (with-terminal-input
    629627      (with-toplevel-commands :break
    630628        (if *continuablep*
Note: See TracChangeset for help on using the changeset viewer.