Skip to content
Snippets Groups Projects
Commit cdd553b5 authored by ram's avatar ram
Browse files

Moved INFINITE-ERROR-PROTECT here from error.lisp, and made INTERNAL-ERROR use

it.  Also moved FIND-CALLER-NAME here.

Fixed up ERROR-ERROR in various ways:
 -- We now call STREAM-INIT to attempt to fix up the streams, rather than
    setting *TERMINAL-IO* to the (no longer defined) variable
    *REAL-TERMINAL-IO*.
 -- We now use WITH-STANDARD-IO-SYNTAX in case someone has mucked up the
    printer control variables.
 -- The message now mentions *maximum-error-depth*, which is now exported from
    KERNEL.
parent 222949e6
No related branches found
No related tags found
Loading
Loading
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment