Ignore:
Timestamp:
Oct 8, 2006, 2:34:14 AM (13 years ago)
Author:
gb
Message:

In %ERROR, go straight to the kernel debugger if interactive streams aren't
initialized yet. (We'd probably get there sooner or later in that case;
try to get there sooner.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-error-signal.lisp

    r4183 r5315  
    117117  (setq condition (condition-arg condition args 'simple-error))
    118118  (signal condition)
     119  (unless *interactive-streams-initialized*
     120    (bug (format nil "Error during early application initialization:~%
     121~a" condition))
     122    (#_exit #$EX_SOFTWARE))
    119123  (application-error *application* condition error-pointer)
    120124  (application-error
Note: See TracChangeset for help on using the changeset viewer.