Changeset 12119 for trunk/source/level-1


Ignore:
Timestamp:
May 24, 2009, 7:14:47 AM (10 years ago)
Author:
gb
Message:

Use an APPLICATION-UI-OPERATION to conditionally refer to different
break loop option strings.

File:
1 edited

Legend:

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

    r12090 r12119  
    610610
    611611
     612
    612613(defvar %last-continue% nil)
    613614(defun break-loop (condition frame-pointer)
     
    644645         (*backtrace-contexts* (cons context *backtrace-contexts*)))
    645646    (with-terminal-input
    646       (with-toplevel-commands :break
    647         (if *continuablep*
    648           (let* ((*print-circle* *error-print-circle*)
    649                  (*print-level* *error-print-level*)
    650                  (*print-length* *error-print-length*)
     647        (with-toplevel-commands :break
     648          (if *continuablep*
     649            (let* ((*print-circle* *error-print-circle*)
     650                   (*print-level* *error-print-level*)
     651                   (*print-length* *error-print-length*)
    651652                                        ;(*print-pretty* nil)
    652                  (*print-array* nil))
    653             (format t "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts.")
    654             (format t "~&> If continued: ~A~%" continue))
    655           (format t "~&> Type :POP to abort, :R for a list of available restarts.~%"))
    656         (format t "~&> Type :? for other options.")
    657         (terpri)
    658         (force-output)
    659 
    660         (clear-input *debug-io*)
    661         (setq *error-reentry-count* 0)  ; succesfully reported error
    662         (ignoring-without-interrupts
    663          (unwind-protect
    664               (progn
    665                 (application-ui-operation *application*
    666                                           :enter-backtrace-context context)
    667                 (read-loop :break-level (1+ *break-level*)
    668                            :input-stream *debug-io*
    669                            :output-stream *debug-io*))
    670            (application-ui-operation *application* :exit-backtrace-context
    671                                      context)))))))
     653                   (*print-array* nil))
     654              (format t (or (application-ui-operation *application* :break-options-string t)
     655                            "~&> Type :GO to continue, :POP to abort, :R for a list of available restarts."))
     656              (format t "~&> If continued: ~A~%" continue))
     657            (format t (or (application-ui-operation *application* :break-options-string nil)
     658                          "~&> Type :POP to abort, :R for a list of available restarts.~%")))
     659          (format t "~&> Type :? for other options.")
     660          (terpri)
     661          (force-output)
     662
     663          (clear-input *debug-io*)
     664          (setq *error-reentry-count* 0) ; succesfully reported error
     665          (ignoring-without-interrupts
     666           (unwind-protect
     667                (progn
     668                  (application-ui-operation *application*
     669                                            :enter-backtrace-context context)
     670                  (read-loop :break-level (1+ *break-level*)
     671                             :input-stream *debug-io*
     672                             :output-stream *debug-io*))
     673             (application-ui-operation *application* :exit-backtrace-context
     674                                       context)))))))
    672675
    673676
Note: See TracChangeset for help on using the changeset viewer.