;; expect to see error messages logged there, regardless of what
;; the debugger does afterwards.)
(format *error-output*
- "~2&~@<debugger invoked on a ~S in thread ~A: ~
+ "~2&~@<debugger invoked on a ~S~@[ in thread ~A~]: ~
~2I~_~A~:>~%"
(type-of *debug-condition*)
- sb!thread:*current-thread*
+ #!+sb-thread sb!thread:*current-thread*
+ #!-sb-thread nil
*debug-condition*)
(error (condition)
(setf *nested-debug-condition* condition)
(handler-case
(progn
(format *error-output*
- "~&~@<unhandled ~S in thread ~S: ~2I~_~A~:>~2%"
+ "~&~@<unhandled ~S~@[ in thread ~S~]: ~2I~_~A~:>~2%"
(type-of condition)
- sb!thread:*current-thread*
+ #!+sb-thread sb!thread:*current-thread*
+ #!-sb-thread nil
condition)
;; Flush *ERROR-OUTPUT* even before the BACKTRACE, so that
;; even if we hit an error within BACKTRACE (e.g. a bug in
unsigned long os_context_fp_control(os_context_t *context);
void os_restore_fp_control(os_context_t *context);
-extern struct thread *arch_os_get_current_thread();
#endif /* _PPC_LINUX_OS_H */
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.2.28"
+"0.9.2.29"