Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • ram's avatar
    cdd553b5
    Moved INFINITE-ERROR-PROTECT here from error.lisp, and made INTERNAL-ERROR use · cdd553b5
    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.
    cdd553b5
    History
    Moved INFINITE-ERROR-PROTECT here from error.lisp, and made INTERNAL-ERROR use
    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.