Ignore:
Timestamp:
Mar 14, 2009, 4:42:20 AM (11 years ago)
Author:
rme
Message:

Merge trunk changes r11790-r11794, r11796, r11801, r11803

(GC fixes, additional x8632 vinsns, easygui enhancements, x8632 callback fix)

File:
1 edited

Legend:

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

    r11594 r11814  
    472472          (format s ", was reset to ~s ." (symbol-value bogusness)))))
    473473    (if (and *break-on-errors* (not *batch-flag*))
    474       (with-terminal-input
    475           (break-loop condition error-pointer))
     474      (break-loop condition error-pointer)
    476475      (if *batch-flag*
    477476        (abnormal-application-exit)
     
    514513        (funcall hook c hook)))
    515514    (%break-message "Debug" c fp)
    516     (with-terminal-input
    517         (break-loop c fp))))
     515    (break-loop c fp)))
    518516
    519517(defun %break-message (msg condition error-pointer &optional (prefixchar #\>))
     
    548546  (let* ((*print-readably* nil))
    549547    (%break-message msg condition error-pointer)
    550     (with-terminal-input
    551       (restart-case (break-loop condition error-pointer)
    552                     (continue () :report (lambda (stream) (write-string cont-string stream))))
    553       (fresh-line *error-output*)
    554       nil)))
     548    (restart-case (break-loop condition error-pointer)
     549      (continue () :report (lambda (stream) (write-string cont-string stream))))
     550    (fresh-line *error-output*)
     551    nil))
    555552
    556553(defun warn (condition-or-format-string &rest args)
     
    619616         (*signal-printing-errors* nil)
    620617         (*read-suppress* nil)
    621          (*print-readably* nil))
    622     (let* ((context (new-backtrace-info nil
    623                                         frame-pointer
    624                                         (if *backtrace-contexts*
    625                                           (or (child-frame
    626                                                (bt.youngest (car *backtrace-contexts*))
    627                                                nil)
    628                                               (last-frame-ptr))
    629                                           (last-frame-ptr))
    630                                         (%current-tcr)
    631                                         condition
    632                                         (%current-frame-ptr)
    633                                         #+ppc-target *fake-stack-frames*
    634                                         #+x86-target (%current-frame-ptr)
    635                                         (db-link)
    636                                         (1+ *break-level*)))
    637            (*backtrace-contexts* (cons context *backtrace-contexts*)))
     618         (*print-readably* nil)
     619         (context (new-backtrace-info nil
     620                                      frame-pointer
     621                                      (if *backtrace-contexts*
     622                                        (or (child-frame
     623                                             (bt.youngest (car *backtrace-contexts*))
     624                                             nil)
     625                                            (last-frame-ptr))
     626                                        (last-frame-ptr))
     627                                      (%current-tcr)
     628                                      condition
     629                                      (%current-frame-ptr)
     630                                      #+ppc-target *fake-stack-frames*
     631                                      #+x86-target (%current-frame-ptr)
     632                                      (db-link)
     633                                      (1+ *break-level*)))
     634         (*backtrace-contexts* (cons context *backtrace-contexts*)))
     635    (with-terminal-input
    638636      (with-toplevel-commands :break
    639637        (if *continuablep*
Note: See TracChangeset for help on using the changeset viewer.