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.
Loading
Please register or sign in to comment