Forked from
cmucl / cmucl
Source project has a limited visibility.
-
ram authored
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.
ram authoredit. 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.