Changeset 8777


Ignore:
Timestamp:
03/15/05 16:07:55 (16 years ago)
Author:
piso
Message:

BACKTRACE-COMMAND: wrap IGNORE-ERRORS around printing of frames.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/top-level.lisp

    r8739 r8777  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: top-level.lisp,v 1.43 2005-03-07 18:59:29 piso Exp $
     4;;; $Id: top-level.lisp,v 1.44 2005-03-15 16:07:55 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    100100          (let ((prefix (format nil "~3D: (" n)))
    101101            (pprint-logical-block (*debug-io* nil :prefix prefix :suffix ")")
    102               (prin1 (car frame) *debug-io*)
    103               (let ((args (cdr frame)))
    104                 (if (listp args)
    105                     (format *debug-io* "~{ ~_~S~}" args)
    106                     (format *debug-io* " ~S" args)))))
     102              (ignore-errors
     103               (prin1 (car frame) *debug-io*)
     104               (let ((args (cdr frame)))
     105                 (if (listp args)
     106                     (format *debug-io* "~{ ~_~S~}" args)
     107                     (format *debug-io* " ~S" args))))))
    107108          (incf n)
    108109          (when (>= n count)
Note: See TracChangeset for help on using the changeset viewer.