Changeset 10356


Ignore:
Timestamp:
11/04/05 20:06:33 (16 years ago)
Author:
piso
Message:

INVOKE-DEBUGGER-REPORT-CONDITION

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/debug.lisp

    r9673 r10356  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: debug.lisp,v 1.32 2005-07-18 11:22:41 piso Exp $
     4;;; $Id: debug.lisp,v 1.33 2005-11-04 20:06:33 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7373  (when condition
    7474    (fresh-line *debug-io*)
    75     (let* ((type (type-of condition))
    76            (report-function (get type 'sys::condition-report-function)))
    77       (with-standard-io-syntax
    78         (let ((*print-structure* nil))
    79           (when (and *load-truename* (streamp *load-stream*))
    80             (simple-format *debug-io*
    81                            "Error loading ~A at line ~D (offset ~D)~%"
    82                            *load-truename*
    83                            (stream-line-number *load-stream*)
    84                            (stream-offset *load-stream*)))
     75    (with-standard-io-syntax
     76      (let ((*print-structure* nil))
     77        (when (and *load-truename* (streamp *load-stream*))
    8578          (simple-format *debug-io*
    86                          (if (fboundp 'tpl::repl)
    87                              "Debugger invoked on condition of type ~A:~%"
    88                              "Unhandled condition of type ~A:~%")
    89                          type)
    90           (if report-function
    91               (funcall report-function condition *debug-io*)
    92               (simple-format *debug-io* "  ~A~%" condition)))))))
     79                         "Error loading ~A at line ~D (offset ~D)~%"
     80                         *load-truename*
     81                         (stream-line-number *load-stream*)
     82                         (stream-offset *load-stream*)))
     83        (simple-format *debug-io*
     84                       (if (fboundp 'tpl::repl)
     85                           "Debugger invoked on condition of type ~A:~%"
     86                           "Unhandled condition of type ~A:~%")
     87                       (type-of condition))
     88        (simple-format *debug-io* "  ~A~%" condition)))))
    9389
    9490(defun invoke-debugger (condition)
Note: See TracChangeset for help on using the changeset viewer.